[Neftali [Germán.Estévez]]

Efectívamente funciona como se esperaba...

procedure TForm1.Button4Click(Sender: TObject);
var
  Str: String;
begin
  if OpenDialog1.Execute then begin

    Str := GetPackageDescription(pChar(OpenDialog1.FileName));

    // Algo
    if (Str = '') then begin
      memo1.Lines.Add('Parece que no tienes Descriupcion');
    end
    else begin
      memo1.Lines.Add('Descripcion: '   Str);
    end;
  end;
end;