Hola madiazg.
Basándome en el código del link:
Agregá un TImage en el form.
Código Delphi
[-]
uses ShellApi, JPeg;
procedure TForm1.WMDropFiles ( var Msg : TWMDropFiles ) ;
var
fName : array [0..Max_Path] of char;
FileCount ,i: integer;
begin
FileCount := DragQueryFile( Msg.Drop,$FFFFFFFF,fName,MAX_PATH );
for i := 0 to FileCount-1 do begin
DragQueryFile( Msg.Drop,i,fName,MAX_PATH );
Image1.Picture.LoadFromFile(fName);
end;
DragFinish ( msg.Drop );
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle,True) ;
end;
Incluí la unit Jpeg para soportar imágenes jpg, pero tendrías que probar con los diferentes formatos.
Saludos.