cpr nummer cheker

er der en der kan få det til at virke:


function TForm1.IsCprValid(Cpr: integer): boolean;
var
  I, TotalCount: integer;
  CurrentNum, StartCPR: string;
  Vaerdi : array[1..10] of integer;
begin
if length(inttostr(Cpr)) <> 10 then result := false else
  begin
  StartCPR := inttostr(Cpr);
  Delete(StartCPR, Length(StartCPR), Length(StartCPR));//fjerner sidste værdi
    for I := 1 to 10 do
    begin
      CurrentNum := inttostr(Cpr)[I];
      case I of
        1: Vaerdi[1] := (Round(strtoint(CurrentNum) * 6));
        2: Vaerdi[2] := (Round(strtoint(CurrentNum) * 5));
        3: Vaerdi[3] := (Round(strtoint(CurrentNum) * 4));
        4: Vaerdi[4] := (Round(strtoint(CurrentNum) * 3));
        5: Vaerdi[5] := (Round(strtoint(CurrentNum) * 2));
        6: Vaerdi[6] := (Round(strtoint(CurrentNum) * 6));
        7: Vaerdi[7] := (Round(strtoint(CurrentNum) * 5));
        8: Vaerdi[8] := (Round(strtoint(CurrentNum) * 4));
        9: Vaerdi[9] := (Round(strtoint(CurrentNum) * 3));
        10: Vaerdi[10] := (Round(strtoint(CurrentNum)*2));
      end;
    end;
    TotalCount := (Vaerdi[1]+Vaerdi[2]+Vaerdi[3]+Vaerdi[4]+Vaerdi[5]+Vaerdi[6]+Vaerdi[7]+Vaerdi[8]+Vaerdi[9]+Vaerdi[10]) div 11;
    if TotalCount = 10 then result := true else result := false;
  end;
end;


procedure TForm1.FormClick(Sender: TObject);
begin//Eksempel Cpr:
if IsCprValid(1008860159) then showmessage(\'Ok\') else  showmessage(\'Ikke valid\');
end;

og så sende mig sours (saves i delphi)