A. The following function retrieves any of the Params values for a given keyword.

 Noel Rice
 Borland Technical Support
 

function GetDBParmValue(DB: TDatabase; KeyWord: String): String;
var
  UserStart, i : integer;
begin
  Result := '';
  with DB do
    for i := 0 to Params.Count - 1 do
      if Pos(KeyWord, Params[i]) <> 0 then begin
        UserStart := Pos('=', Params[i]) + 1;
        Result := Copy(Params[i], UserStart,
          (Length(Params[i]) - UserStart) + 1);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Database1.Connected := true;
  Caption := GetDBParmValue(Database1, 'USER NAME');
end;