[destrukthor]

Este es el error.

ProcGlob.pas(3): 'INTERFACE' expected but 'USES' found

aqui esta el codigo...

Código Delphi [-]
unit ProcGlob;
Uses
 SysUtils;
InterFace
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
FUNCTION v_Rut(Var_Rut: String): Boolean;
implementation
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
BEGIN
  IF f_Num=0 THEN
    Result:=True
  ELSE
    Result:=False;
END;
FUNCTION V_Rut(Var_Rut: STRING): Boolean;
VAR n_Dv,Cal_R,f,i,h,LargoRut: Integer;
  Var_Dv,DvRut,Rut_1,NroRut: String;
BEGIN
 var_rut:=TRIM(var_rut);
 var_rut:=UPPERCASE(var_rut);
  largorut=LENGTH(var_rut);
  Rut_1:=COPY(Var_Rut,1,1);
  IF LargoRut=0 THEN
    Result:=False;
 IF LargoRut<3 OR POS('-',Var_Rut)=0 OR Rut_1='0' THEN
    Result:=False;
 DvRut:=COPY(Var_Rut,LargoRut-1,1);
  NroRut:=COPY(Var_Rut,1,POS('-',Var_rut)-1);
 h:=2;
  Cal_R:=0;
 FOR i:=LENGTH(NroRut) DOWNTO 1 DO
  BEGIN
    f:=StrToInt(COPY(NroRut,i,1));
    IF h=8 THEN
      h:=2;
  Cal_R=Cal_R+(f*h);
  h:=h+1;
  END;
 n_Dv:=11-INT(Cal_R-(INT(Cal_R/11)*11));
  CASE n_Dv OF
    10: Var_Dv='K';
    11: Var_Dv:='0';
    ELSE
      Var_Dv:=IntToStr(n_Dv);
  END;
  IF DvRut<>Var_Dv THEN
    Result:=False;
  Result:=True;
END;