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
.