Zellwert aus TStringGrid mit DragDrop in ein TEdit -Wie?

[Flips]

Delphi-Quellcode:

procedure TForm3.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
  var acol,arow:integer;
begin
if Button = mbLeft then
  StringGrid1.MouseToCell(X,Y,acol,arow);
if (ACol <> -1) and (ARow <> -1) then
  Stringgrid1.BeginDrag(True);
end;

procedure TForm3.StringGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  aCol, aRow : integer;
begin
(Sender as TStringGrid).MouseToCell(X,Y,aCol,ARow);
(Sender as TStringGrid).Cells[2,ARow] := (Source as TStringGrid).Cells[3,(Source as TStringGrid).Row];
end;

procedure TForm3.StringGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TStringGrid);
end;