время Опции

[Caranthir]

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

[volvo]

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

А вот так - есть:

procedure TForm1.Button6Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := inttostr(strtoint(Edit1.Text) + 1);
end;

(изначально: timer1.enabled = false, а edit1.text = '1')