Probleme mit Timer bzw. Zeit-Anzeige

[cu mic]

Ich tippe darauf, dass du "zuviel" zwischendurch tust und die Messages nicht zeitgemäß abgearbeitet werden können.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(aktuell);
if (aktuell mod 10=0)
then Edit1.Text := TimeToStr(now-start);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
start := now;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i:=0 to 100 do
begin
sleep(100);
// Application.ProcessMessages;
end;
end;

Aber nur eine Vermmutung, denn bei mir läuft es einwandfrei sekundengenau.