Validar RUT, como implementarlo

[Lenny]

Hola a todos... primero que nada... agradecimientos por la web y sus usuarios... e aprendido mucho siguiendo vuestros comentarios, mas que una herramienta es mi escuela esta web... en fin... la duda...

Soy un novatisimo en esto... pero me encanta y espero seguir en esto por mucho, pero me encontrado con un problema, ya han tratado el tema antes, e buscado en los hilos y no encuentro solucion, me refiero al famoso RUT chileno (DNI en otros paises, es lo mismo).
la idea es validar si el rut es correcto o no y lo unico que e encontrado en la web es esto:

Código Delphi [-]
Function ValRut(Rut: String):String;
 var
    Cuenta, Suma, totalrut, Revisa : Integer;
 begin
    Suma:=2;
    TotalRut:=0;
    For Cuenta:=Length(Trim(rut)) downto 1 do
      begin
         if Suma>7 then Suma:=2;
         Totalrut:=Totalrut+((StrToInt(copy(rut,cuenta,1)))*suma);
         Suma:=Suma+1;
      end;
    Revisa:=Round((frac(Totalrut/11)*10)+0.5);
    Revisa:=11-revisa;
    If Revisa=10 then Result:='K'
       else
         begin
           If Revisa=11 then Result:='0'
              else Result:=IntToStr(Revisa);
         end;
 end;

el problema es que no se como usarlo, si es que hay que declararlo, donde... etc... sorry... se que es tonto y de novatos... pero necesito me ayuden... la idea es que exista un edit o un maskedit en el cual escrivo un rut que seria algo asi: 11.268.924-4, y que al guardarlo a travez de un Button verifique si el RUT es correcto o no, de ser incorrecto me de un aviso... si pudieran adjuntar un ejemplo si no es mucho pedir... estaria mas que agradesido...

de antemano muchisimas gracias...