stringgrid 的drag&drop问题(100分)

我想将stringgrid中的第5行拖到第3行（还是同一个stringgrid），然后将第5行
的有关数据和第3行的相加，然后删掉第5行。
用drag来拖动，怎么做？
（当然不一定是指定的行，可以是任意一行，或者是多行）

没人会啊？

看样子100分泡汤了

ssaavvee Mose 为公用变量

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var xx,yy:Integer;
begin
try
StringGrid1.MouseToCell(x,y,xx,yy);
ssaavvee:=StrToInt(StringGrid1.Cells[xx,yy]);
Mose :=1;
except

end;
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var xx,yy:Integer;
begin
if mose=1 then

try
StringGrid1.MouseToCell(x,y,xx,yy);
StringGrid1.Cells[xx,yy]:=
IntToStr(StrToInt(StringGrid1.Cells[xx,yy])+ssaavvee);
Mose:=0;
except
end;
end;

pie:谢谢了。以后多联系。