تعطيل مفاتيح الإتجاهات Keyarrow

أرجو أن يكون هذ ما تريد

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = 37) or (key = 38) or (key = 39) or (key = 40) then
showmessage('th key is closed');
end;

أخي الكريم

أعتقد أن هذا ما تبحث عنه

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_UP then Key := 0;
if Key = VK_Down then Key := 0;
if Key = VK_Left then Key := 0;
if Key = VK_Right then Key := 0;
end;

بعد زمان ياهشام كنت متمني أنا أرد على سؤالك بس الشباب سبقوني جزاهم الله كل خير

جزاكم الله كل خير اخوتي الكرام

ومشكور أخ زاهر وجزاك الله كل خير