XX min Timer mit nachfolgender Aktion

[nastytrouble]

ok ich habe es mir mit fast 1 h recherchen selbst beantwortet.

Delphi-Quellcode:

var
  Form2: TForm2;
  i:integer;
  x:integer;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Timer1TimerTimer(Sender: TObject);
begin
  Timer1Timer.Enabled := false;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.show;
form2.Hide;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
x:=StrToInt(edit1.text);
timer1timer.enabled:=true;
repeat
        begin
        i:=i+1;
        sleep(1000)
        end
until   (i=x);
if (i=x) then ShowMessage(IntToStr(x)+' sec sind vorbei');
end;

naja so lernt man mehr
ahso ich habe den timer timer1timer genannt.