Редактирование ячеек DbGridEh

//Êîïèðóåì íóæíûå ÿ÷åéê â Grid
procedure TForm1.Button2Click(Sender: TObject);
label // ðàçäåë îáúÿâëåíèÿ ìåòîê
baa;
var
               f : File;        //Íåòèïèçèðîâàííûé ôàéë
         StrList : TStringList; // Ðàáîòà ñî ñïèñêîì ñòðîê.
             i,j : Integer;     // Êîíåö ïîçèöèè
   s,s1,s_DB,s_grid : String;      //Âûõîäíîé ôàèë
begin
   if not FileExists(OpenDialog1.FileName) then begin
    MessageDlg('Íå óêàçàí àðõèâ.', mtError, [mbYes], 0);
    Exit;
    end;
    j:=0;
    StrList:= TStringList.Create;
    StrList.LoadFromFile(OpenDialog1.FileName);
   For i:=0 To StrList.Count-1 Do Begin
       s:='';
       s1:='';
       s1:=StrList.Strings[i];
       s:=(Copy(s1,1,Pos('#',s1)-1));  //Íà÷àëüíàÿ ïîçèöèÿ â êîíå÷íîì ôàéëå
       Delete(s,1,Pos('#',s));
       DBGridEh1.DataSource.DataSet.First;
        while not DBGridEh1.DataSource.DataSet.Eof do begin
          s_DB:='';
          s_DB:=DBGridEh1.DataSource.DataSet.FieldByName('title').Value;
          if s=s_DB then begin
           stringgrid1.Cells[0,j]:=s_DB;
           stringgrid1.Cells[1,j]:=DBGridEh1.DataSource.DataSet.FieldByName('postid').Value;
           stringgrid1.Cells[2,j]:=DBGridEh1.DataSource.DataSet.FieldByName('pagetext').Value;
           stringgrid1.RowCount:=stringgrid1.RowCount+1;// Óäàëÿåì ïîñëåäíþþ ïóñòóþñòðîêó
           j:=j+1;
           goto baa;  // Ïåðåïðûãèâàåì â íóæíîå ìåñòî
          end;
          DBGridEh1.DataSource.DataSet.Next;
        end;
          baa:
   end;
      stringgrid1.RowCount:=stringgrid1.RowCount-1;// Óäàëÿåì ïîñëåäíþþ ïóñòóþñòðîêó
      StrList.Free;
   end;