Nombres de archivos seleccionados

[ArtPortEsp]

Buen dia

quisiera implementar la funcionalidad de que el usuario pueda seleccionar varios archivos desde el explorador de windows y "capturar" los nombres de esos archivos (incluyendo la ubicacion), para agregarlos a una base de datos.

No se ni como empezar.

Supongo que algo tiene que ver con DRAG and DROP, pero tengo un ejemplo (abajo), pero no hace nada :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  public
    { Public declarations }
  protected
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
     DragAcceptFiles(Self.Handle, true);
end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  DropH: HDROP;               // drop handle
  DroppedFileCount: Integer;  // number of files dropped
  FileNameLength: Integer;    // length of a dropped file name
  FileName: string;           // a dropped file name
  I: Integer;                 // loops thru all dropped files
  DropPoint: TPoint;          // point where files dropped
begin
     inherited;
     // Store drop handle from the message
     DropH := Msg.Drop;
     try
          // Get count of files dropped
          DroppedFileCount := DragQueryFile(DropH, $FFFFFFFF, nil, 0);
          // Get name of each file dropped and process it
          for I := 0 to Pred(DroppedFileCount) do
          begin
               // get length of file name
               FileNameLength := DragQueryFile(DropH, I, nil, 0);
               // create string large enough to store file
               SetLength(FileName, FileNameLength);
               // get the file name
               DragQueryFile(DropH, I, PChar(FileName), FileNameLength + 1);
               ShowMessage(FileName);
               Memo1.Lines.Add(Filename);
               // process file name (application specific)
               // ... processing code here
          end;
          // Optional: Get point at which files were dropped
          DragQueryPoint(DropH, DropPoint);
          // ... do something with drop point here
     finally
          // Tidy up - release the drop handle
          // don't use DropH again after this
          DragFinish(DropH);
     end;
     // Note we handled message
     Msg.Result := 0;
end;

Estoy usando Delphi 7 y Windows 10