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

[limon77]

Как в StringGrid вставить скопированные строки, между двух других, заполненных, так,чтобы содержание нижних строк сдвинулось?

Вот код вставки:

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;