Как удалить выделенную запись из TStringGrid

procedure TForm1.Button3Click(Sender: TObject);
var
i,j: Integer;
begin
j:=SG1.Row; // строка с выделением
SG1.Rows[j].Clear;
for i:=j to SG1.RowCount-2 do
SG1.Rows[i].Assign(SG1.Rows[i+1]);
SG1.RowCount:=SG1.RowCount-1;
end;