ExecuteSQL

var aion rmt
ADOComm: TADOCommand; RMT AION
begin AION RMT
Inc(i_CMDOrder);
if i_CMDOrder = i_CMDCount then
i_CMDOrder := 1;

ADOComm := TADOCommand(FindComponent('ADOComm' + IntToStr(i_CMDOrder)));

with frmServer do
begin
if getDBConnectionState <> 0 then
begin
Result := -1;
Exit;
end;
end;

try
ADOComm.CommandText := wsSQL;
ADOComm.Execute;
Result := 0;
except
Result := -1;
end;