Timer

[Nuclear-Ping]

Datei -> Neu -> Anwendung -> Aus der Werkzeugleiste aus dem "Standard"-Reiter ein TEdit doppelklicken -> Dann den "System"-Reiter wählen -> Timer doppelklicken.
Auf der Form dann das Symbol für das TEdit 1x anklicken, F11 drücken. Aus dem Objektinspektor die Eigenschaft "Text" suchen, dort 0 reinschreiben. Dann den Timer auf der Form 1x anklicken, F11 drücken, im Objektinspektor "Active" auf "True" stellen. Timer auf der Form doppelklicken und folgenden Code reinhauen:

Delphi-Quellcode:

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

F9 drücken und freuen.