I'm starting to believe that my predecessor doesn't exactly know what he was doing...

I'm starting to believe that my predecessor doesn't exactly know what he was doing... 

function ReadFromDatabase(P_1, P_2: integer) : boolean;
var
  Query: TQuery;
begin
  Result := false;
  Query := getQuery();
  
  if ( Query = nil ) then
    exit;

  try
    Query.ParamByName('P_01').AsCurrency := P_1;
    Query.ParamByName('P_02').AsCurrency := P_2;
    Query.Open();
    Query.First();
    Result := true;
  finally
   if ( Query <> nil ) then
    begin
      Query.Close();
      Query.Free();
    end;
  end;
end;