Button Image bei Drag & Drop

[Natcree]

Hallo Ich will einen TButton mit Drag & Drop auf der Form verschieben.

Was auch kein Problem ist.

Nun soll aber beim Drag over Der Button sichtbar bleiben ? Habe mir schon vieles angesehen.

Kann mir jemand weiter helfen Hier mal mein Code

Delphi-Quellcode:

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TButton;
  end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
    if Source is TButton then
    begin
      TButton(Source).Left := X;
      TButton(Source).Top := Y;
    end;
end;