procedure TForm1.Change;
begin
 if source.Count>0 then
 begin
  tmp:=source.Strings[0];
  uin:=copy(tmp,1,pos(';',tmp)-1);
  pass:=copy(tmp,pos(';',tmp)+1,length(tmp));
  ICQClient1.Password:=pass;
  ICQClient1.UIN:=StrToInt(uin);
  Log.Lines.Add('Try to connect '+uin+';'+pass+' ... ');
  ICQClient1.Login;
 end;
end;