ИМХО - лучше использовать ADOCommand


AdoCommand.CommandText:= Динамически составленная строка
AdoCommand.Execute;

а лучше написать функцию и ею пользоваться:


function SendCommand(const S: WideString): WordBool;
begin
TRY
aComm.CommandText:=S;
aComm.Execute;
RESULT:=True;
EXCEPT
On E: Exception Do
begin
RESULT:=False;
ShowMessage('SendCommand - '+S+#13#10+E.Message); //или свою процедуру
end;
END;
end;

только в Пропертях поставь так:
ADOCOmmand -> ExecuteOption -> eoExecuteNoRecord = True
для выдачи ошибки в случае ее возникновения...