Пропуск условия if. Delphi 7

[alexBlack]

т.е. в один label все 0-ли, во второй - все 1-цы и т.д. ?
Тогда можно сделать так:

Запишем все label в массив (их всего 10):

A[0] := label0;
...
A[9] := label9;

Это, конечно, не самый лучший вариант, зато простой (можно использовать findComponent.

Создадим процедуру для обработки строки:

procedure setChars(S:String);
begin
   for i:=1 to length(S) do begin
      if S[i] in ['0'..'9'] then begin
         A[ord(S[i])-ord('0')].Caption := A[ord(S[i])-ord('0')].Caption+S[i];
      end;  
   end; 
end;

Вызовем эту процедуру для всех переменных:

setChars( intToStr(m) );
setChars( intToStr(d) );
...

Идея ясна ?

- Можно просто подсчитывать количество символов, а потом формировать Caption в соответствии с ним.

- Можно сделать массив строк. Потом присвоить строки to Caption.

Выбор за Вами.

[Дикий]

ех... хорошо написал.
спасибо.