Obrigando a digitação de maiúsculos em um memo?

Procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key:= Upcase(Key);
end;