نقل قول نوشته شده توسط sobhangh مشاهده تاپیک
فکر کنم این کمکت کنه
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
edit1.Clear;
edit1.Text:=' = #'+inttostr(ord(key));
اگه هنوز مشکل داشتی بگو.
سلام. اما یه مشکل هست اونم کلیدهای ترکیبی.و (F1,F2...) برای این راه حلی دارید؟

با تشکر........