Создание своей функции в Делфи

[Юлия Алексеевна]

Здравствуйте, уважаемые знатоки Делфи! Помогите пожалуйста написать программу для делфи:
"Описать функцию, которая возвращает количество разных цифр, входящих в запись числа типа Longint".
Очень срочно нужно, заранее огромное спасибо!

[eoln]

function count(n: longint): byte;
var
  kol: set of 0..9;
  i: byte;
begin
  if n= 0 then
  begin
    result := 1;
    exit
  end;
  result := 0;
  kol := [];
  while n <> 0 do begin
    i := n mod 10;
    if not (i in kol) then begin
      include(kol, i);
      inc(result)
    end;
    n := n div 10;
  end;
end;

[Юлия Алексеевна]

eoln, спасибо, НО куда этот код вставить, чтоб он работать начал?