Эмуляция механического счетчика

[Paul Hindenburg]

На форме 3 ListBox'a. У всех св-во Items числа от 0 до 9.
Нужно чтобы был организован счетчик - по типу обычного счетчика для подсчета электронэнергии.Но возникает ошибка при пере ходе цифр от 89 к 90 - получается число 190 вместо 90, потомучто этот алгоритм реализован для разрядов (т.е. единицы,десятки и сотни).

Существует условие - нельзя сравнивать числа арифметическими действиями!!!, только как текст или логическими операциями.

Вот листинг процедура сидит на таймере(это не суть).

procedure TForm1.Button1Click(Sender: TObject);
var
TEXT_1:string; TEXT_2:string; TEXT_3:string;
procedure MoveItems(List:TListBox);
// простое перемещение в листбоксе
var
q:string;
begin
q := List.Items.Strings[0];
List.Items.Delete(0);
List.Items.Add(q);
end;
begin
TEXT_1 := Listbox1.Items.Strings[0];
MoveItems(ListBox1);
if TEXT_1 = '9' then
begin
//ошибка возникает здесь!!!! при переходе 89-90 т.к.
//оба разряда равны 9: 89 - единицы и (при добавлении единицы) 90
//
MoveItems(ListBox2);
TEXT_2 := Listbox2.Items.Strings[0];
if (TEXT_1 = '9') and (TEXT_2='9') then
begin
MoveItems(ListBox3);
TEXT_3 := Listbox3.Items.Strings[0];
end;
end;
end;
кто сможет решить буду очень благодарен!!!

[Мэс]

Я бы на твоем месте попробовал бы следующий вариант:

procedure MoveItems(List : TListBox);
var
q : string;
begin
q:=List.Items.Strings[0];
List.Items.Delete(0);
List.Items.Add(q);
end;

procedure Schetchik;
begin
MoveItems(Form1.ListBox1);
if Form1.ListBox1.Items[0]='0' then MoveItems(Form1.ListBox2) else exit;
if Form1.ListBox2.Items[0]='0' then MoveItems(Form1.ListBox3) else exit;
if Form1.ListBox3.Items[0]='0' then
begin
MoveItems(Form1.ListBox1);
MoveItems(Form1.ListBox2);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Schetchik;
Label1.Caption:='Показания счетчика: '+ListBox3.Items[0]+ListBox2.Items[0]+ListBox1.Items[0];
end;

[mutabor]

Существует условие - нельзя сравнивать числа арифметическими действиями!!!

бред какой-то, а ты уверен что в описаниях функций Add, Delete нет арифметических действий?
С таким же успехом можно написать функцию делающую все арифметические вычисления и вынести ее в отдельный модуль