Nochmal, bitte verwende das OnTimer Ereignis um die Check Funtionen zu realisieren.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var b:byte; i:integer;
begin
Timer1.Interval := 1000 * StrToInt(Edg.Text);
Timer2.Interval := 1000 * StrToInt(Edr.Text);
Timer3.Interval := 1000 * StrToInt(Edl.Text);
Timer4.Interval := 1000 * StrToInt(Edrw.Text);
Timer1.Enabled :=True;
Timer2.Enabled:=True;
Timer3.Enabled:=True;
Timer4.Enabled:=True;
end;
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Checkbox.Check = true;
end;
Außerdem, solltest du dir gedanken über die Eingabe machen, wie ist es wenn jemand einen Bustaben eingibt. Das musst du sperren, oder eine Fehlrbehandlung schreiben.
Um den code oben mal zu erklären, das ist nur ein Hinweis, den musst du natürlich nach deinen Anforderungen anpassen.