problema Función verificar imei (luhn)

[rafaelon]

buenas tardes tengo la siguiente consulta tengo esta función

function IMEIcheck(imei : string): string;
var
  a : Integer;
  sum : Integer;
  i : Integer;
  d : string;
  ds : Integer;
begin
  a := 0;
  sum := 0;
  for i := 0 to Length(imei)-1 do
  begin
    d := Copy(imei, Length(imei)-i, 1);
    ds := StrToInt(d);
    if a mod 2 = 0 then
      ds := ds * 2;
    if ds > 9 then
      ds := ds - 9;
    sum := sum + ds;
    a := a + 1;
  end;
  sum := sum mod 10;
  Result := IntToStr(10 - sum);
end;

y basicamente quiero que tome el valor de imei de un Edit.text y el codigo de verificacion lo muestre en otro edit pero no se que hago mal

var
s:string;
numero:integer;

begin
numero:= StrToInt(frm_principal.edit10.Text);
s:= IMEIcheck('numero');
edit11.Text:=s;
end;