Asignar Dinamicamente Propiedad DisplayFormat antes de ejecutar X formulario o Report

[[movorack]]

Código Delphi [-]
implementation
uses TypInfo;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsPublishedProp (Button1, 'Visible') then
    begin
      SetPropValue (Button1, 'Visible',false);
    end;

end;