[jachguate]

Si queres hacerlo por código, te comento que los componentes Query solamente envían una instrucción al servidor.

Lo que te tocaría es enviar al servidor sentencia por sentencia, suponiendo que todas las instrucciones generadas están en una sola línea, es sencillo:

Código Delphi [-]
var
  Insrucciones: TStringList;
begin
  Instrucciones := TStringList.Create();
  try
    Instrucciones.Read
    for I:= 0 to Instrucciones.Count - 1 do
    begin
      Query1.SQL.Text := Instrucciones[i];
      Query1.ExecSQL;
    end;
  finally
    Instrucciones.Free;
  end;

Hasta luego.