TIBDatabaseInfo

[Casimiro Noteví]

Puedes hacerlo con TFIBDatabase. Tienes un fichero de ayuda donde explica todos los componentes con sus propiedades y métodos.

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