Zeit in Label wiedergeben

[Mirilin]

@Matze

Delphi-Quellcode:

procedure TForm1.TimerTimer(Sender: TObject);
begin
  inc(Hun);
  if Hun = 100 then
  begin
    Hun := 0;
    inc(Sek);
  end;
  if Sek = 60 then
  begin
    Sek := 0;
    inc(Min);
  end;
  LabelTime.Caption := IntToStr(Min)+':'+IntToStr(Sek)+':'+IntToStr(Hun);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer.Enabled  := False;
  Timer.Interval := 100;
  Timer.Enabled  := True;
end;

so klappts bei mir.

Edit : das ding läuft zu langsam, falsches Interval beim Timer, aber naja