Arrastrar y soltar un archivo sobre la aplicación

[santus]

yo lo hice para abrir un archivo rtf y arrastrarlo a un richview.

En la seccion de "private" agrega este procedimiento.

  private
    procedure WMDropFiles(var Msg: TWMDropFiles); message M_DROPFILES;
 
  ...
 
procedure TfMain.WMDropFiles(var Msg: TWMDropFiles);
var
  CFileName: array[0..MAX_PATH] of Char;
  RutaArchivoTemp : String;
begin
  try
    if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then
    begin
      sbDocumento.Panels[0].Text := 'Archivo '+CFileName;
      if extraerTextoWord(CFileName,RutaArchivoTemp) then begin // aca convierte de word a RTF.
        reDocumento.lines.LoadFromFile(rutaArchivoTemp);
        btnIniciarProceso.Enabled := True;
      end;
      Msg.Result := 0;
    end;
  finally
    DragFinish(Msg.Drop);
  end;
end;

fijate si esto te sirve. Muchos saludos.