Crear objetos de una BD en tiempo de ejecución

[ozsWizzard]

Creo que esto te valdrá

Código Delphi [-]
var
   q: TADOQuery;
begin
   q := TADOQuery;
   q.Connection := AdoConnection1;
   q.SQL.Add('CREATE PROCEDURE PRUEBA');
   q.SQL.Add('[Cuerpo del procedimiento]');
   q.SQL.Add('[en tantas líneas como se quieta]');
   q.SQL.Add('END');
   q.ExecSQL;
end;

Saludos.

[cmfab]

Gracias por la respuesta, efectivamente el problema que tenia con el Adoquery es que habìa que eliminar las lineas GO que importé directamente desde SQL Server.