Detectar teclas sem erros

Olá pessoal.

Preciso detectar teclas e uso a procedure abaixo, se bem que já usei de outras formas.
O problema é que Qudo são teclas como acento agudo ou acento grave e outras teclas que dependam do Shift, não k=mostra de primeira o valor ASCII... tem que dar uns dois toques na tecla para aparecer o valor e aí fura o squema.
Teria que aparecer de primeira.

Alguém pode ajudar?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit2.Text:=; //Limpa o campo
Edit2.Refresh;
Edit2.Text := IntToStr(Ord(Key));
Key := #0;
end;