[[egostar]]

Ya la declaraste en el Type de TFHabitacion??

algo asi

Código Delphi [-]
type
  TFHabitacion = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    function verificaanadircliente(Key:word):word;
  public
    { Public declarations }
  end;

Salud OS.