[ecfisa]

Hola GerTorres.

Probá la creación de este modo:

var
  NewParam: TParam;
begin
  with Query1 do
  begin
    Params:= TParams.Create();
    NewParam:= Params.CreateParam(ftString,'NuevoParametro',ptInput);
    Params.AddParam(NewParam)
  end
end;

Saludos.