Задача - на форме панель, на панели - эдит, который надо по панели таскать мышкой.

Этот код работает в Delphi (7), но не работает в Lasarus:
=======================
procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with TEdit(Source) do
begin
  Left := X;
  Top := Y;
end;
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
begin
 Accept := Source.ClassName = 'TEdit';
end;      
====================
Дополнение:
Panel1.Align := alClient;
Panel1.DragMode := dmManual;
Edit1.DragMode := dmAutomatic;