Hola,
Si el número RUT es parecido al DNI español lo propuesto por
roman puede no funcionar como se espera. Me explico. Un RUT válido puede ser: "12.345.126-K", pero, en caso de que este también lo fuera: "124.345.126-K" el código de más arriba daría problemas. Yo optaría por algo así, so pena de que pueda mejorarse no poco lo que propongo:
Código Delphi
[-]
function ParsearNumeroRUT(const RUT: string) : string;
resourcestring
rsExcep = 'El número RUT: "%s" no es correcto.';
begin
Result := RUT; Result := StringReplace(Result, '.', '', [rfReplaceAll]);
Result := StringReplace(Result, '-', '', [rfReplaceAll]);
if Length(Result) >= 10 then
begin
if StrToIntDef(LeftStr(Result, 10), -1) = -1 then
raise Exception.Create(Format(rsExcep, [RUT]));
end;
end;