Kann der PC net Zählen??

[Privateer3000]

Versuchs mal so:
(so mach ich meine Countdowns)

Delphi-Quellcode:

var
  Form1: TForm1;
  counter: Integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(counter);
Button1.Caption:='Countdown'+IntToStr(counter);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
counter:=300;
end;

end.