[XBart]

este es el codigo del form2,el error ocurre al llamar el procedimiento limpia

Código Delphi [-]
unit ucliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxMemo, cxControls, cxTextEdit,
  StdCtrls, cxButtons, cxLookAndFeelPainters, cxContainer, cxEdit, ExtCtrls;

type
  Tfcliente = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    ENombre: TcxTextEdit;
    codigo: TLabel;
    Ecodigo: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edireccion: TcxTextEdit;
    eColonia: TcxTextEdit;
    EMunicipio: TcxTextEdit;
    EEstado: TcxTextEdit;
    EPais: TcxTextEdit;
    ETele1: TcxTextEdit;
    Etele2: TcxTextEdit;
    Efax: TcxTextEdit;
    ERFC: TcxTextEdit;
    EEmail: TcxTextEdit;
    EContacto: TcxTextEdit;
    Efechaalta: TcxTextEdit;
    ENotas: TcxMemo;
    Bnuevo: TcxButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BnuevoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private

  public

    { Public declarations }
  end;

var
  fcliente: Tfcliente;

implementation

uses umenu;

{$R *.dfm}

procedure Tfcliente.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;



procedure Tfcliente.BnuevoClick(Sender: TObject);
begin
  ENombre.Text:='';
end;


procedure limpia;
begin
 fcliente.ENombre.Enabled:=false;
end;

procedure Tfcliente.FormCreate(Sender: TObject);
begin
     limpia;
end;


end.

espero me puedan ayudar