Puedes hacerlo con TFIBDatabase. Tienes un fichero de ayuda donde explica todos los componentes con sus propiedades y métodos.
Código:
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;