Delphi2009でドラッグアンドドロップを使う

Delphi2009でドラッグアンドドロップを使う。
http://melander.dk/delphi/dragdrop
だと2009がバツマークがついている。
メーリングリストで質問して教えてもらったのだけど、Development Snapshot版であれば2009にも対応している。
http://melander.dk/articles/dragdropsnapshot200902

中国語やハングルでも問題なく使えるらしい。

procedure TForm1.DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState;
  APoint: TPoint; var Effect: Integer);
var
  FileName: String;
  Item: TListItem;
begin
  ListView1.Clear;
  for FileName in DropFileTarget1.Files do
  begin
    Item := ListView1.Items.Add;
    Item.Caption := FileName;
  end;
end;