Problema con shortname

[jonydread]

yap
tengo asi mi codigo

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
    ShortName: PChar;
    Size: Cardinal;
begin
 Size := GetShortPathName(PChar(Opendialog1.FileName), nil, 0);
  if Size > 0 then
      begin
    GetMem(ShortName, Size);
    GetShortPathName(PChar(Opendialog1.FileName), ShortName, Size);
    Result := ShortName;
    FreeMem(ShortName);
  end
  else
    Result := Opendialog1.FileName;
       if FileExists(Opendialog1.FileName) then
        ShellExecute(Handle, 'open', 'D:\re2\delphi\HAND.CMD', PChar(@ShortName), nil, SW_NORMAL)
        else ShowMessage('No se ha cargado Archivo');
    end;

me da un error en esta linea

Código Delphi [-]
Result := ShortName;