из мемо в таблицу

 ADOTable1.Open;
 
          for k:=1 to mmo1.Lines.Count div 5+1  do
        for d:=0 to 4 do
 
               begin
               ADOTable1.Insert;
         ADOTable1.Fields[d].AsString := mmo1.Lines.Strings[k*5+d];
          ADOTable1.Post;
          end;

procedure TForm1.LoadDataToTable(TableName: string; FieldName: string; Resource: TStrings);
var
   i: integer;
begin
   with TADOCommand.Create(nil) do
     try
       Connection := ADOConnection1;
       CommandText := 'INSERT INTO '+TableName+' ('+FieldName+') VALUES (:p1)';
       Prepared := true;
       for i := 0 to Resource.Count-1 do
          try
           Parameters.ParamByName('p1').Values := Resource[i];
           Execute;
          except
           ShowMessage('Ошибка добавления записи') ;
           break;
          end;       
     finally
       Free;
     end;
end;

procedure TForm1.LoadDataTodataSet(Resource: TStrings);
var
   i: integer;
begin
   with DBGrid1.DataSource.DataSet do
      for i := 0 to Resource.Count-1 do
        begin
          Append;
          FieldByName('Pole1').AsString := Resource[i];
          Post;
        end;
end;

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=http://www.websitewithhtmltable.com/tablepage.html;Extended Properties="HTML Import;HDR=YES;IMEX=1";