problema con funciones

[jhonny]

No has definido el valor resultante de la función, colocare un ejemplo muy sencillo de lo que puedes hacer:
1:

Código Delphi [-]
 
function tfhabitacion.verificaanadircliente(Key:word):word;
begin
  //...
  //...
  Result := key;
end;

o

2:

Código Delphi [-]
 
function tfhabitacion.verificaanadircliente(Key:word):word;
begin
  //...
  //...
  verificaanadircliente := key;
end;

Espero te sirva .