Дельфи. Назначение действий на клавиши

[Arm!n]

Имеется прога с кнопками на форме. Кнопки "Enter", "<-" и "->" отвечают за создание прямоугольника, сдвиг влево и вправо соответсвенно. Необходимо избавиться от кнопок, и вместо них назначить действия на клавиши "Enter", "<-" и "->". Пытался с помощью процедуры FormKeyPress сделать это, но что-то не получалось - никакой реакции на клавиши. Помогите, пожалуйста!

unit Unit1lr4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,unit2, StdCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
  El:TEll;
    { Public declarations }
  end;
const n=70;s=30;
var
  Form1: TForm1;
  k,j:integer;
implementation

{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
begin
 with PaintBox1.Canvas do
   begin
   Pen.Color:=clwhite;
   Pen.Style:=psSolid;
   Brush.Color:=clwhite;
   color:=clgreen;
   rectangle(PaintBox1.ClientRect);
   end;
 El.Draw(True);
end;

procedure TForm1.FormCreate;
begin
El:=TEll.Create(Paintbox1.Canvas,100,50,160,150,clyellow);
end;

procedure TForm1.FormDestroy;
begin
El.Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if El.XX<=ClientHeight-60 then
  begin
  El.draw2(n,0);
  inc(k);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
 var i:integer;
begin
 for i:=1 to k do El.move(-n,0);
 El.draw(false);
 inc(j);
 El.XX:=100-s*j;
 El.XX1:=160-s*j;
 for i:=1 to k do El.draw2(n,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
 var i:integer;
begin
 for i:=1 to k do El.move(-n,0);
 El.draw(false);
 dec(j);
 El.XX:=100-s*j;
 El.XX1:=160-s*j;
 for i:=1 to k do El.draw2(n,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if El.YY<=Clientheight-60 then El.Move(0,10)
     else  timer1.Enabled:=false ;
end;

end.

[_Engine_]

Установите у формы свойство KeyPreview := true;

[Arm!n]

Устанавливал. Никакого эффекта.

[_Engine_]

На счет OnKeyPress не знаю, но OnKeyDown точно отрабатывала

[MyLastHit]

чем http://delphiexpert.ru/view_lesson.php?id=16 не нравится? Или вообще обязательно, чтобы через KeyPress надо?

[Ponkole]

Вот поправил используется OnKeyDown:

[Arm!n]

MyLastHit, спасибо, помогло. Странно только вот, что именно enter и стрелки не работают, а любые другие клавиши действуют.

Ponkole, благодарствую.

[MyLastHit]

Нет, не странно.
KeyPress возвращает аски код(a-z...A-Z..0..9), а KeyDown сканкод(Enter, Space, Backspace, и тд).