Du kannst natürlich eine private Methode schreiben:
Delphi-Quellcode:
procedure TForm1.SetzeAlleParameter(qry:TMySQLQuery; Infos:TIrgendEinRecordOderKlasse);
begin
Assert(Assigned(qry)); // Sicherheitsabfrage
qry.Params.ParamValues['test']:= Infos.test;
..
end;
Bei vielen Queries und Parameter kann das viel Schreibarbeit sparen.