用AdoCommand
AdoCommand.CommandType := cmdText;
While ... do
begin
AdoCommand.CommandText :='Insert into ... values(...) ';
AdoCommand.Parameters.ParamValues['ParamName1']:= ...
AdoCommand.Parameters.ParamValues['ParamName2']:= ...
AdoCommand.Parameters.ParamValues['ParamName3']:= ...
......
end;
