procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
case (Key) of
vkReturn: label1.Text:='Return';
vkBack: label1.Text:='Backspace';
vkTab: label1.Text:='Tab';
else
label1.Text:='KeyChar...'+KeyChar;
end;
end;