procedure TForm1.Button1Click(Sender: TObject);
var
ss:Tstrings;
i:integer;
begin
  ss:=TStringList.Create;
  ss.LoadFromFile('uins.txt');
  ss.NameValueSeparator:=';';
  for i:=0 to ss.Count-1 do
    begin
      ICQClient1.UIN := StrToInt(ss.Names[i]);
      ICQClient1.Password := ss.ValueFromIndex[i];
    end;
end;