وضع اختصارا لزر ما من الكيبورد

يوجد عدة طرق ,

أولا جرب الطريقة الأبسط : OnKeyDown

الفرق بينها وبين OnKeyPress أنها تبقى تنفذ طالما الزر مضغوط أما keypress تنفذ مرة واحدة

إذا كنت تريد التحكم بسرعة التنفيذ (لاتريد السرعة الكبيرة لتكرار الحدث )

بإمكانك عمل timer تضع فيه الحدث الذي تريد .

ثم عند ضغط زر ما تفعل التايمر بالسرعة التي تريدها , وعند رفع الضغط تعطل التايمر :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_SPACE then
if not Timer1.Enabled then
Timer1.Enabled:=true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_SPACE then
if  Timer1.Enabled then
Timer1.Enabled:=false;;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Width:=Width+1;
end;

إذا لم تنفعك الطريقة يمكن العمل بطرق متقدمة اكثر ,