StringGrid вставка строк со сдвигом

type
  {В классе TStringGrid есть методы для перемещения строк и столбцов:
  RowMoved() и ColumnMoved(). Но эти методы объявлены в разделе Protected, поэтому
  они доступны для использования только в методах этого класса и его потомков.
  Чтобы сделать эти методы доступными для "внешнего" кода, создадим класс потомок
  и переопределим эти методы в разделе Public.}
 
  TStringGridM = class(TStringGrid)
  public
    procedure RowMoved(FromIndex, ToIndex: Longint); override;
    procedure ColumnMoved(FromIndex, ToIndex: Longint); override;
  end;
 
{ TStringGridM }
 
//Перемещение строк.
procedure TStringGridM.RowMoved(FromIndex, ToIndex: Integer);
begin
  inherited RowMoved(FromIndex, ToIndex); //Вызов унаследованного метода предка.
end;
 
//Перемещение столбцов.
procedure TStringGridM.ColumnMoved(FromIndex, ToIndex: Integer);
begin
  inherited ColumnMoved(FromIndex, ToIndex); //Вызов унаследованного метода предка.
end;
 
{ TForm1 }
 
//Пример вставки новых строк.
procedure TForm1.Button1Click(Sender: TObject);
var
  Sgm : TStringGridM;
begin
  //Предположим, надо вставить 2 новые строки в позицию с индексом 2 (индексация идёт от нуля).
 
  //1. Приводим тип таблицы к типу TStringGridM.
  Sgm := TStringGridM(StringGrid1);
  //2. Добавляем в таблицу 2 новых строки - они появятся в самом низу таблицы.
  Sgm.RowCount := Sgm.RowCount + 2;
  //3. Переносим 2 новые строки в позицию с индексом = 2.
  Sgm.RowMoved(Sgm.RowCount - 1, 2);
  Sgm.RowMoved(Sgm.RowCount - 1, 2);
end;

type
  TStringGrid = class({Vcl.}Grids.TStringGrid);

procedure TFormRedaktor.SgPasteBuf(var Sg: TStringGrid);
var
  St,Ss,S: String;                     //Строки буфера, строки и поля
  Sel: TGridRect;                      //Выделяемая область
  L,R,C: word;                         //Row-строка, Col-колонка
begin
 
  St:=ClipBoard.AsText;                //Буфер обмена в строку
  Sel:=Sg.Selection;                   //Получили выделенную область
  L:=Sel.Left;                         //Крайний слева
  R:=Sel.Top;                          //Крайний сверху
  R:=R-1;                              //Приподнялись выше
 
  while Pos(#13,St)>0 do               //Пока не достигли конца строки
  begin
    R:=R+1;                            //Спустились ниже
    C:=L-1;                            //Сдвинулись левее
    Ss:=Copy(St,1,Pos(#13,St));        //Скопировали строку
    Delete(Ss,Pos(#13,Ss),1);          //Удалили символ конца строки
 
    while Pos(#9,Ss)>0 do              //Пока не дошли до разделителя
    begin
      C:=C+1;                          //Сдвинулися вправо
      S:=Copy(Ss,1,Pos(#9,Ss)-1);      //Скопировали значение поля
      //Если мы в пределах таблицы, то вставлять в ячейки
      if (C<=Sg.ColCount-1) and (R<=Sg.RowCount-1) then Sg.Cells[C,R]:=S;
      Delete(Ss,1,Pos(#9,Ss));         //Удалил из общей строки
    end;                               //Дописали последнюю ячейку
    if (C<=Sg.ColCount-1) and (R<=Sg.RowCount-1) then
      begin
      Sg.Cells[C+1,R]:=Ss;
      StringGrid1.RowCount:=StringGrid1.RowCount+1;
      end;
 
    Delete(St,1,Pos(#13,St));                 //Удалили строку из буфера
    if Copy(St,1,1)=#10 then Delete(St,1,1);  //Удалили последний символ
    if St < StringGrid1.RowCount then StringGrid1.RowCount+1;
 
 
  end;
end;