delphi FDQuery 参数化查询获取完整SQL

function GetFullSqlFromFDQueryWithParams(FDQuery1: TFDQuery): string;
var
 i:Integer;
 sSQL1: string;
begin
  Result := '';
  try
    sSQL1 := FDQuery1.SQL.Text;
    for i:= 0 to FDQuery1.ParamCount-1 do
    begin
      sSQL1 := StringReplace(sSQL1,':'+FDQuery1.Params[i].Name,
      vartostr(FDQuery1.Params[i].value),[]);
    end;
    result := sSQL1;
  except
  end;
end;