Debes colocarlo dentro del interface, pero tu ademas lo colocas dentro de la declaracion del formulario. Esto puedes solucionarlo de dos maneras:
Sacandolo fuera:
Código Delphi
[-]
unit ClienteNuevo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask, ComCtrls, Buttons, ExtCtrls, DB, DBTables;
type
TFormClienteNuevo = class(TForm)
end;
function EsNif(NIF: String): Boolean;
O por el contrario si va a formar parte del formulario, la implementacion de la funcion seria asi:
Código Delphi
[-]
function TFormClienteNuevo.EsNif(NIF: String): Boolean;
var
Numero: Integer;
begin
Result:= FALSE;
if TryStrToInt(Copy(NIF,1,Length(NIF)-1),Numero) then
Result:= Uppercase(Copy(NIF,Length(NIF),1)) = Letra(Numero);
end;