type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMDRopFiles(var Message :TWMDropFiles); Message WM_DROPFILES;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses ShellApi;
{$R *.dfm}

procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var
  C, I : integer;
  Buff  : array[Byte] of char;
begin
  C := DragQueryFile(Message.Drop, $FFFFFFFF, nil, 0);
  for I := 0 to C - 1 do begin
    DragQueryFile(Message.Drop, I, Buff, SizeOf(Buff));
    Self.Canvas.TextOut(0, I * 20, Buff);
  end;
end;

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

end.