Como editar no funciona tengo que corregir asi:
Código Delphi
[-]
function EsNIFCorrecto(NIF: String): Boolean;
var
Numero: Integer;
begin
Result:= FALSE;
if Length(NIF) = 9 then
begin
if TryStrToInt(Copy(NIF,1,Length(NIF)-1),Numero) then
Result:= Uppercase(Copy(NIF,Length(NIF),1)) = LetraNIF(Numero);
if Uppercase(Copy(NIF,1,1)) = 'X' then
if TryStrToInt(Copy(NIF,2,Length(NIF)-2),Numero) then
Result:= Uppercase(Copy(NIF,Length(NIF),1)) = LetraNIF(Numero);
end;
end;