Du wirst allerdings Deinen SQL zu zelegen müssen, also vorzugsweise einzelene GO 's in einer eigene Zeile
While eine enthaltene Zeile = 'GO' dann
begin
SQL := zeilen bis Ausschließlich GO-Zeile
AdoConnection.Execute(SQL)
Löschen bis Einschlißlich GO-Zeile
end;