[jorgegetafe]

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  ficheroOpciones = text;

  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    GroupBox2: TGroupBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  fOpciones: ficheroOpciones;

implementation

{$R *.dfm}

PROCEDURE TForm2.Button1Click(Sender: TObject);                                 // Cerrar opciones
  BEGIN
    close;
  END;

PROCEDURE TForm2.Button2Click(Sender: TObject);                                 // Aceptar opciones
  BEGIN
    assign (fOpciones, 'Opciones.txt');
    rewrite (fOpciones);
    writeln (fOpciones, 't');
    // grabar opciones
    Button1Click(Sender);
  END;

END.

Me da un error de compilación, cuando asigno el fichero lógico al físico (assign (fOpciones, 'Opciones.txt') diciendome: "Incompatible types: 'TPersistent' and 'Text' " no tengo ni idea de porque... alguien me puede ayudar?

Muchisimas gracias.