这样试试:
var
 str:string;
begin
 str:='';
 ..... Query1.Params.ParamByName('name').AsString:=str; 
...
end;