{
OnRowMoved example
The following code displays the number of rows a row was moved in a label in The first cell of the row.
} 
procedure TForm1.StringGrid1RowMoved(Sender: TObject; FromIndex, ToIndex: Longint);
begin
  Label1 := IntToStr(Abs(FromIndex-ToIndex));
end; 
