Arrastar arquivos do explore para o seu form.

//Declare a clausula private do form

private
procedure PegarArquivoArrastato(var Msg : TWMDropFiles); message WM_DROPFILES;


procedure TForm1.PegarArquivoArrastato(var Msg: TWMDropFiles);
var
i : Integer;
NumerodeArquivo : Integer;
NomedoArquivo : String;
begin
SetLength(NomedoArquivo,255);
NumerodeArquivo := DragQueryFile(Msg.Drop,$FFFFFFFF,PChar(NomedoArquivo),255);
for i := 0 to NumerodeArquivo-1 do begin
DragQueryFile(Msg.Drop,i,PChar(NomedoArquivo),255);
Listbox1.Items.Add(NomedoArquivo);
end;

//no evento oncreate do form escreva:
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, True);
end;

//prontinho, e so abrir o explore clicar em um arquivo, e arrastar para o seu formulario.
//Não se escueça de colocar um Listbox1 e declarar na clausula uses o seguinte:
Uses
StdCtrls, ShellApi;