время Опции

[Caranthir]

подскажите пжл: как выполнть операцию к примеру через 1мин, не используя Sleep или WaitForSigleObject

[Caranthir]

а куда ставятся Timer1.Enabled:=true; и Timer1.Enabled:=false; ....

procedure TForm1.Button1Click(Sender: TObject);
begin
while true do
  begin
   Timer1.Enabled:=true;
end;
  end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
//код
Timer1.Enabled:=false;
end; 

так никакой задержки нет