procedure TForm1.WebProgressChange(Sender: TObject; Progress, ProgressMax: Integer); begin Progressbar1.Visible := true; progressbar1.Parent:=statusbar1; progressbar1.top:=1; progressbar1.left:=1; progressbar1.Max:=progressMax; progressbar1.Position:=progress; end;
Statusbar1.Panels[1].Text := text;