Procedure DragDropFiles(Var me age: TMe age); Me age WM_DropFile 

Procedure Tfm_main.DragDropFiles(Var me age: TMe age);
Var
  p: Array[0..254] Of char;
  i: word;
Begin
  Inherited;
  i := DragQueryFile(Me age.wParam, $FFFFFFFF, Nil, 0);
  For i := 0 To i - 1 Do
  Begin
  DragQueryFile(Me age.wParam, i, p, 255);
  End;
  Try
  If FileExists(strPas(p)) Then
  OpenFile(strPas(p));
  Finally
  DragFinish(HDROP(Me age.WParam));
  End;
End;