А исходник ведь:

[CODE]
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
Form1.ProgressBar1.Max:=Form1.Memo1.Lines.Count;
Form1.ProgressBar1.Position:=0;
Form1.ICQClient1.Login();
For i