[gglite]OnRecvUserNotify-dziwne działanie aplikacji

Pisząc aplikacje mającą na celu pobieranie opisów od osób znajdujących się w bazie, napotkałem sie z dziwnym działaniem programu. Otóż program działa prawidłowo, ale tylko dla jednego pewnego nr gg. Sytuacja mnie mocno zaskoczyła, gdyż niezależnie od położenia tego użytkownika( o danym nr gg) w bazie danych tylko dla niego pobierany jest opis. Dodam, że osoby znajdujące się w bazie danych mają dodany do kontaktów nr gg z którego pobierany jest opis.

type

  Baza4=record
      UserId:integer;
      UserStatus: TGGUserStatusExt;
      UserDesc: String[70];
      UserReturnTime: Double;
      UserMaxImageSize: Byte;
      UserIP: Integer;
  end;
  Tab4=Baza4;

...

var
    r4:baza4; 

...

procedure sprawdzopis(var ro:Tab4);
var
i:integer;
begin
   assignfile(fb,sciezka+nazwa4);
   if fileexists(sciezka+nazwa4) then
   begin
       reset(fb);
       for i:=1 to filesize(fb) do
       begin
          read(fb,r2);
          if r2.nr=ro.UserId then
          begin
             seek(fb,filepos(fb)-1);
             r2.opis:=ro.UserDesc;
             write(fb,r2);
          end;
       end;
     closefile(fb);
   end;

end;

//------------------------------------------------------------------------------

procedure TForm1.RecvUserNotify(Sender: TObject; UserId: Integer;
  UserStatus: TGGUserStatusExt; UserDesc: String; UserReturnTime: Double;
  UserMaxImageSize: Byte; UserIP: Integer);
begin

   r4.UserId:=UserId;
   r4.UserStatus:=UserStatus;
   r4.UserDesc:=UserDesc;
   r4.UserReturnTime:=UserReturnTime;
   r4.UserMaxImageSize:=UserMaxImageSize;
   r4.UserIP:=UserIP;
   sprawdzopis(r4);


end;

...

Nie wiem co może powodować, że opis jest pobierany tylko dla jednego użytkownika.
Za pomoc thx.
Kurcze nikt nie wie?

Dobra, po pewnym czasie poradziłem sobie z problemem, zrobiłem to trochę inaczej niż początkowo chciałem, ale teraz już jest ok.

Szkoda, że nikt się nie wypowiedział.