[Casimiro Notevi]

Puedes ver la lista de usuarios conectados mediante el componente IBDataBaseInfo y la propiedad UserNames.

TIBDataBaseInfo.UserNames
Returns the names of all users currently attached to the database.
property UserNames : TStringList;

procedure TForm1.Button1Click(Sender:TObject);
var
  i:integer;
begin
  for i:=0 to IBDataBaseInfo1.UserNames.Count -1 do
    Memo1.Lines.Add( IBDataBaseInfo1.UserNames[i]);
end;