Умножение\Сложение\Сравнение чисел

[WayneWeezy]

Код:

var
a:integer;
begin
for a:=Memo1.Lines.Count-1 downto 0 do
begin
if (StrToFloat(Copy(Memo1.Lines[a],Pos('[Price1]',Memo1.Lines[a])+14,Pos('[/Price1]',Memo1.Lines[a])-Pos('[WithoutPrice]',Memo1.Lines[a])-14))<= StrToFloat(Format('%1.2f', [StrToFloat(Copy(Memo1.Lines[a],Pos('[Price]',Memo1.Lines[a])+7,Pos('[/Price]',Memo1.Lines[a])-Pos('[Price]',Memo1.Lines[a])-7))*StrToFloat('0,'+Edit7.Text)+StrToFloat(Copy(Memo1.Lines[a],Pos('[Price]',Memo1.Lines[a])+7,Pos('[/Price]',Memo1.Lines[a])-Pos('[Price]',Memo1.Lines[a])-7))])))  then
 begin
Memo1.Lines.Delete(a);
 end
 else
 begin
Memo2.Lines.Add(Memo1.Lines[a])
 end;
end;
end;

В Memo1 данные такого типа:

[Price]3,30[/Price][Price1]3,21[/Price1]
[Price]1,20[/Price][Price1]3,81[/Price1]
[Price]4,28[/Price][Price1]2,31[/Price1]

Код должен сравнивать 2 числа между тегами [Price][/Price] и [Price1][/Price1], но с начала он должен определить 30% от числа в теге [Price][/Price] и прибавить их к нему же, а потом уже сравнить.
Определяет по такой формуле :
Допустим что наше число 2 и нам нужно получить 30% от него 2*0,30+2.
Если число в тегах [Price][/Price] после добавления 30% меньше [Price][/Price1], то удаляем строку в memo1, если же наоборот, то добавляем всю строку в memo2.
Код проверял, вроде бы нормально состряпал, но как доходит до дела, то он не всегда правильно кидает в memo2.
Просмотрите его, может быть я что не так понял