[poli-smen]

Смотри.
При создании формы создаю 10 пользователей

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  friends := TStringList.Create;

  for i := 1 to 10 do
  begin
    tempuser := TUser.Create;
    tempuser.uid := IntToStr(i);
    tempuser.fname := 'first_name' + IntToStr(i);
    tempuser.lname := 'last_name' + IntToStr(i);
    tempuser.online := online;

    Friends.AddObject(tempuser.uid, tempuser);
  end;
end;

При нажатии на кнопку Button1 добавляю их в ListBox1:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  SelUser: TUser;
  i: Integer;
begin
  lb_users.Items.BeginUpdate;
  lb_users.Clear;

  Memo1.Lines.Add('count=' + IntToStr(friends.Count));

  for i := 0 to friends.Count - 1 do
  begin
    if friends.Objects[i] = nil then
    begin
      memo1.Lines.Add('nil');
    end else
    begin
      SelUser := TUser(friends.Objects[i]);

      memo1.Lines.Add(SelUser.fname + ' ' + SelUser.lname);
      memo1.Lines.Add('online=' + Inttostr(SelUser.online));

      if SelUser.online = online then
      begin
        lb_users.AddItem(SelUser.fname + ' ' + SelUser.lname,
          TObject(StrToInt(SelUser.uid)));
        memo1.Lines.Add('i=' + Inttostr(i) + ' user=' + SelUser.fname + ' ' + SelUser.lname);
      end;
    end;
  end;

  lb_users.Items.EndUpdate;
end;

У тебя такое разве не работает? И БД Access тут непричём.