1:

Delete(strLeser, Editfeld.SelStart+1, Editfeld.SelLength);					

1:

strLeser:= StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

//... hinter uses
type THackGrid = class(TCustomGrid);

//...
  private
    FGrid : THackGrid; //Zugriff auf TCustomGrid

//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FGrid := THackGrid(StringGrid);//Zugriff auf TCustomGrid
end;

//...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringGrid.EditorMode then// sonst Zugriffsfehler
    // mach was mit FGrid.InplaceEditor.SelText
end;