procedure TForm1.FlatButton7Click(Sender: TObject);
var
  i,n:dword;
  s,s2:string;
begin
uins.Lines.LoadFromFile(FlatEdit5.text);
for i:=0 to uins.Lines.Count-1 do
  begin
  n := pos(';',uins.Lines.Strings[i]);
    If (n > 0) then
    begin
      loginmemo.lines.add(copy(uins.Lines.Strings[i],1,n-1));
      //memo2.Lines.Add(s);
      inc(n);
      passmemo.lines.add(copy(uins.Lines.Strings[i],n,length(uins.Lines.Strings[i]) - n+1));
      //memo3.Lines.Add(s);

       ICQClient1.ConvertToPlaintext := True;          //Convert RTF text to plain (when you don't use TRichEdit)
  ICQClient1.ICQServer := 'login.icq.com';        //Default login server
  ICQClient1.ICQPort := 5190;                     //Default login port
  ICQClient1.Password := passmemo.Lines[i];       //Set password
  ICQClient1.UIN := StrToInt(loginmemo.Lines[i]);       //Set UIN
  ICQClient1.Login;                               //Login to server!

    end;
  end;