var Form1: TForm1; i:integer; implementation {$R *.lfm} { TForm1 } procedure TForm1.Timer1Timer(Sender: TObject); begin image2.Width := i; Label1.Caption := Floattostr(round(i*100/242))+'%'; inc(i); if i=242 then timer1.Enabled := false; end; procedure TForm1.FormShow(Sender: TObject); begin i:= 0; end;