U krajnjem slucaju mozes da saznas potrebene kodove ovom procedurom
Code:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
self.Label1.Caption:=inttostr(key);
end;
jedino sto moras da stavis da ti je jos
Code:
form1.KeyPreview:=true;