var
i: Byte;
m: array [0..99] of TICQClient;
begin
for i:=0 to 99 do
begin
  m[i]:=TICQClient.Create(nil);
  with m[i] do
  begin
    UIN:=00000000;
    Password:='qwerty';
    Login();
  end;
end;

 
var
  Form1: TForm1;
  ScreenDC: HDC;
  Can: TCanvas;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Can:= TCanvas.Create;
  Can.Handle:= GetDC(ScreenDC);
  Image1.Canvas.CopyRect(Rect(1, 1, Image1.Width, Image1.Height), Can, Rect(1, 1, Screen.Width, Screen.Height));
  Image1.Repaint;
  ReleaseDC(Can.Handle, ScreenDC);
  Can.Free;
end;