problema al ejecutar accion al soltar archivo sobre aplicacion

[jonydread]

si lo que pasa que tenia un problema con el destino me creaba el archivo en la carpeta de mi proyecto al arrastrar y soltar
hise esta ensalada jaja que por el momento ha sido la unica forma que me ha funcionado
Arrastrar/soltar y ejecutar aplicación

Código Delphi [-]
procedure TReg2infConverter.WMDropFiles(var Msg: TMessage);
var
  nomArchivo: array [0..255] of char;
  tamBuffer: Integer;
  numArchivos: Integer;
  f: Integer;
  Origen, Destino ,Filename,path : string;
begin
  // Cuando se arrastra un archivo sobre nuestra apliación,
  // se recibe este mensaje.
  hDrop := Msg.WParam;
  numArchivos := DragQueryFile(hDrop, $FFFFFFFF, Nil, 0);
  if (numArchivos > 0) then
  begin
    for f := 0 to numArchivos -1 do
    begin
      tamBuffer := DragQueryFile(hDrop, f, nil, 0)+1;
      DragQueryFile(hDrop, f, nomArchivo, tamBuffer);
      opendialog1.FileName:=(nomArchivo);
      edit1.Text:=(nomArchivo);
       if fileExists(opendialog1.FileName) then
      begin
    if ExtractFileExt(opendialog1.FileName) = '.reg' then
    begin
path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');

LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );
end else
    MessageDlg('Archivo no valido!!', mterror, [mbok],0);
   end;
   end;
  end;
  end;

Enviar archivo a Aplicación

Código Delphi [-]
procedure TReg2infConverter.FormCreate(Sender: TObject);
var Origen, Destino,FileName,Path: string;
begin
  // Registrar la aplicación
  DragAcceptFiles(handle, true);
  if ParamStr(1) > '' then
  begin
    OpenDialog1.FileName:= ParamStr(1);
    Edit1.Text:= ParamStr(1);
    if FileExists(OpenDialog1.FileName) then
    Path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
    Filename := Extractfilename(opendialog1.FileName);
    Origen := GetshortName(opendialog1.FileName);
    Filename:= AnsiReplaceStr(Filename,' ','');
    Destino :=ChangeFileExt(Filename, '.inf');

    LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );
end;
end;

Gracias! por el momento todo OK!!