StringGrid

[SsdD]

Уважаемые программеры, вот у меня в СГ такие числа:
11110
1111
101
11
нужно, чтобы получились такие:
11110
01111
00101
00011

var
i: integer;
begin
for i:=0 to StringGrid1.RowCount-1 do
begin
StringGrid1.Cells[1,i]:=dec2bin(strtoint(StringGrid1.Cells[0,i]));
if length(StringGrid1.Cells[1,i])>length(StringGrid1.Cells[1,i+1]) then
StringGrid1.Cells[1,i+1]:='0'+StringGrid1.Cells[1,i+1];
end;

А он в ответ ничего подобного не делает, может где та ошибка у меня?
dec2bin-это функция преобразования 10-го в 2-ый.

[evg_m]

StringGrid1.Cells[1,i]:=dec2bin(strtoint(StringGrid1.Cells[0,i]));

вычисляем в строке i

if length(StringGrid1.Cells[1,i])>length(StringGrid1.Cells[1,i+1]) then
StringGrid1.Cells[1,i+1]:='0'+StringGrid1.Cells[1,i+1];

а затем проверяем строку i+1 где еще ничего нет и стало быть
length(....[1,i+1])=0

if length(StringGrid1.Cells[1,i])>0) then
StringGrid1.Cells[1,i+1]:='0'+StringGrid1.Cells[1,i+1];

но даже после исправления будет добавлен максимум один 0.
если надо больше и неизвестно сколько, то нужен while

[SsdD]

Немного подправлю, у меня есть 2 столбца, из них 1-ый столбец заполнен полностью, в другой кнопке происходит заполнение, но там такие строки

1110
101
11
1

Вот я патаюсь сделать чтобы они были такие:

1110
0101
0011
0001

Но почемута ничего не происходит, вроде бы условие правильное..
ПС. кол-во нулей пока что не так важно, главное чтобы выполнилось хотябы такое:

1110
101

1110
0101