procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
i:=ProgressBar1.Max;
ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = i then
begin
Timer1.Enabled:=False;
Form2.ShowModal;
end;
end;