AssignFile (F, 'res.txt');
{$I-}
Reset (F);
{$I+}
if IOresult = 0 then
begin
while not SeekEof (F) do
begin
ReadLn (F, S);
UINS := Trim (Copy (S, 1, Pos ('=', S)-1));
PassWord := Trim (Copy (S, Pos ('=', S)+1, Length (S)));
// RandSeed:=IntToStr(random(2));
if Msg=UINS then begin
ICQClient.SendMessage(UIN,PassWord); end;

end;
end;
CloseFile (F);