[Vocabulary]

А что, собственно, затрудняет? Схема: ADOConnection -> ADOQuery.

Код:

  for I := 1 to StringGrid1.RowCount-1 do begin
    ADOQuery1.SQL.Text := 'insert into <некая таблица>(поле1, поле2, ...) values(StringGrid1.Cells[0, I], StringGrid1.Cells[1, I], ...)';
    ADOQuery1.ExecSQL;
  end;