Timer

[deagel]

irgendwie macht er bei diesem letzten schritt mucken, ka wodran das liegt.
mein startbutton heisst start:

aber das hier funzt net:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if DateTimeToTimeStamp(StrToTime(zeit.Text)).Time < DateTimeToTimeStamp(now).Time then // wenn Zeit im Edit-Feld kleiner als aktuelle
    ausgabe.Caption:='noch zeit'
  else
    TForm1.startClick(start);
end;

Delphi-Quellcode:

else
    TForm1.startClick(start);

<-- da macht er stress


[Warning] Unit1.pas(42): Comparing signed and unsigned types - widened both operands
[Warning] Unit1.pas(48): For loop control variable must be simple local variable
[Error] Unit1.pas(65): This form of method call only allowed for class methods
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'