Como deixar tudo maiusculo

{FormKeyPress:=True}
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key := AnsiUpperCase(Key)[Length(Key)];
end;