procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
 nUin: string;
begin
 nUin := Edit1.Text;
 For i := Low(ICQ) to High(ICQ) do
 begin
  if i > High(ICQ) then break;
  if Assigned(ICQ[i]) then
  begin
   if ICQ[i].LoggedIn then
   begin
    ICQ[i].SendMessage(StrToInt(nUin), 'Darova');
    If Edit1.Text=Edit2.Text Then Timer1.Enabled := false;
    nUin := IntToStr(StrToInt(nUin)+1);
   end;
  end;
  Edit1.Text := nUin;
 end;
end;