Timer direkt aufrufen

[kolbaschedder]

noch richtiger wäre :

Delphi-Quellcode:

procedure Timer1.Timer(Sender: TObject);
begin
  MachirgendWas(Sender);
end;

procedure TForm1.Machrigendwas(Sender: TObject);
begin
if Silent then Exit;
    form1.label2.Caption:=inttostr(count)+' Files';
    form1.label4.Caption:=bytestostr(size);
    application.processmessages;
end;