Label.Caption mit/durch ProgressBar ändern?!?

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var b: Integer; // das dann auch weg
begin
  b:=1;  // solltest Du ausserhalb des Timer auf 1 setzen
  ProgressBar1.StepBy(1);
  application.ProcessMessages;
  inc(b)
  label3.Caption:= IntToStr(b);
end;

Grüße
Klaus