Delphi - RE:verificaion de funcion

sorry pero no se que paso que se envio el mensaje anterior sin el codigo bueno tengo el siguiente y me gustaria saber por que me marca error, el objetivo de esta funcion es que tome el valor que se carga en el edit 1 y realize toda la operacion para luego verificarlo con lo que este en el edit 16, aca va la funcion espero que me puedan ayudar ademas el error qye me marca es el siguiente : [Error] Unit2.pas(96): Statement expected but 'FUNCTION' found bueno no se caso esta mal definida la funcion no se realmente que podra tener
Function( ValRut(edit1.text: String):String);
var
Cuenta, Suma, totalrut, Revisa : Integer;
begin
Suma:=2;
TotalRut:=0;
For Cuenta:=Length(Trim(edit1.text)) downto 1 do
begin
if Suma>7 then Suma:=2;
Totalrut:=Totalrut+((StrToInt(copy(edit1.text,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;
if (Result = edit16.text) then
begin
showmessage('rut,valido');
end
else
begin
showmessage('rut invalido')
end;