[Descendents]

Entonces si lo que dice ruben de que es un objeto creo que la mejor opcion es

Pones un image en el form, le pones dragmode a automatico del image, le pones una foto, este codigo al form y ya.

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

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

Saludos