[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.