Drag and Drop con firemonkey?

[FabianSiza]

Hola amigos estaba tratando de hacerlo con la misma forma que lo hago con VCL arrastrando una Timage a otra Timage pero con firemonkey es con TimageViewer y aun que cambie eso en el condigo de VCL no me a funcionado alguna idea?

Codigo del Timage al que se le hace el drop (vcl):

Código Delphi [-]
procedure TForm1.Image4DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TImage).Picture.Assign((source as TImage).Picture);
end;

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

crei que solo cambiando en el codigo Timage por Timageviewer funcionaria pero no