однократное событие

[getout]

привет всем! как сделать однократное событие на edit 1 , то есть если зажать клаву, то событие продолжается, а нужно что б он один раз сработал и все.
код:

 
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);

    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
   procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);


     
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HIT , MIS : Integer;
  i,r: Integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);


begin
  Randomize;

  i:=30 ;

end;

   procedure TForm1.Timer1Timer(Sender: TObject);

begin


   i:= i - 1 ;
  Label3.Caption := ('Îñòàëîñü äî îêîí÷àíèÿ  ') + IntToStr(i)  ;
     if i = 0 then
     begin

     Timer1.Enabled:=False;
     Timer2.Enabled:=False;
     ShowMessage('HIT- ' + IntToStr(hit));
          end;


end;

 procedure TForm1.Timer2Timer(Sender: TObject);

begin
      r:= 49+Random(5);
     Label1.Caption := IntToStr(r - 48);
     Edit1.Clear;
    // Edit1.Enabled:=False;
     Edit1.SetFocus;
     Label6.Caption:= IntToStr(r) ;
end;



 procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin
  if Key = 69 then
      begin
     Timer2.Interval := 3000 ;

      timer1.Enabled:= True;
   Timer2.Enabled:= True;
   end ;

   if Key = 77 then
        begin
       Timer2.Interval := 2000;
          timer1.Enabled:= True;
         Timer2.Enabled:= True;
       end ;

   if Key = 72 then
        begin
       Timer2.Interval := 1000;
          timer1.Enabled:= True;
         Timer2.Enabled:= True;
       end ;
end;



procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin
   Edit1.Clear;
     Edit1.SetFocus;
     if Key = r then
     begin
        HIT := HIT + 1;
           Label2.Caption := ('HIT- ') + IntToStr(HIT);


     end
        else
         begin
            MIS :=MIS +1;
            Label4.Caption := ('MIS- ') + IntToStr(MIS);
          end;

   Label5.Caption:= IntToStr(key);

end;
end.

[volod3000]

var
  Form1: TForm1;
  i    : Integer = 0;

implementation

{$R *.dfm}

begin
..........................
if i = 0 then begin
Ваше событие.......................
Inc(i);
end;
.............................

[getout]

Сообщение от volod3000

var
  Form1: TForm1;
  i    : Integer = 0;

implementation

{$R *.dfm}

begin
..........................
if i = 0 then begin
Ваше событие.......................
Inc(i);
end;
.............................

а если нужно что б, при следующем обновлении рандома (когда рандом сгенерирует следующее число) имели возможность снова ввести число в edit1 ??

[volod3000]

Ловите события обновлении рандома и объявите (в событии) -> i := 0;

[getout]

Сообщение от volod3000

Ловите события обновлении рандома и объявите (в событии) -> i := 0;

ыыы))) что то я не до пру, я это примерно как? Пардоньте за тупость, только начинаю изучать

вот , собственно сама прога, если во время игры зажать или нажимать (лихорадочно) циферку, то можно столько "очей" набить!!!
Никак не могу победить эту напасть

[volod3000]

Если я правильно понял логику игры , то в
procedure TForm1.Timer2Timer(Sender: TObject);
вставьте :

i := 0;

[getout]

Сообщение от volod3000

Если я правильно понял логику игры , то в
procedure TForm1.Timer2Timer(Sender: TObject);
вставьте :

i := 0;

Я написал по другому, но кажись получилось то же самое , что Вы советовали, в итоге все работает !!! Может я там лишнее что то написал, или может что то коряво, но работает!!! кому интересно можете посмотреть !
volod3000 , Вам спасибо за вразумительные советы начинающему !!!