Подсчёт цифр в turbo delphi, посмотрите в чём ошибка?

[Lulu0701]

Будьте добры пожалуйста,исправьте ошибки, заранее благодарю. вот задание:
Сколько и каких именно цифр необходимо, чтобы записать все числа от k1 до k2.

procedure TForm1.Button1Click(Sender: TObject);
Var
  i,j,k,k1,k2 : Integer;
  Count : Array[0..9] Of Integer;
begin
  If Not (TryStrToInt(Edit1.Text,k1) And
  TryStrToInt(Edit2.Text,k2)) Then Exit; //Ошибка в набранных числах
 
  Memo1.Lines.Clear;
  If k1>k2 Then
  Begin
    i:=k1;
    k1:=k2;
    k2:=i;
  End;
 
  For i:=0 To 9 Do Count[i]:=0;
 
  For i:=k1 To k2 Do
  Begin
    j:=i;
    Repeat
      k:=j Mod 10;
      Inc(Count[k]);
      j:=j Div 10;
    Until j=0;
  End;
  For i:=0 To 9 Do
  Memo1.Lines.Add(Format('Цифр %d - %d',[i,Count[i]]));
end;

[Poma][a]

Будьте добры пожалуйста,исправьте ошибки

А Вы уверены что они тут есть?

А Вы случайно не знакомы с Asdaman ?

[Lulu0701]

Точно есть,так как не компилирует.

[Poma][a]

А что говорит? (Нет у меня Дельфи)

[Lulu0701]

Тогда извините,что пристала к вам с таким вопросом. да уже нашла ошибку,но теперь не пойму, каков должен быть конечный результат. потому что только выводит мне кнопки и никаких дальнейших действий.

[BDA]

Вы подключили эту процедуру к кнопке?

[Lulu0701]

Извините конечно,что такая неопытная. Но вот как,опишу всё, открываю turbo delphi, выбираю форму с "кнопочками". 2-edita, button, memo.
нажимаю на button и перехожу к описанию. верно?

[BDA]

Да, по идее, верно.
Вы ввели числа в оба edit'а (перед нажатием кнопки) во время работы программы?
А то у меня работает выше указанный код без каких-либо модификаций.

UPD
Пожалуйста

[Lulu0701]

Ух ты,всё заработало. Глупые ошибки допустила,стыдно признаться. Спасибо большое))))))