Не срабатывает условие сравнения чисел.

[Solvinder]

Уважаемые товарищи. Бьюсь второй день над такой проблемой. Пришлось писать вот такой изврат в Delphi.

procedure TForm1.Button1Click(Sender: TObject);
var
x:array[0..7] of real;
y:array[0..7] of real;
f:array[0..6] of real;
g:array[0..6] of real;
j,i:Integer;
lp,sum1,xmin,xmax,l,k,l1,k1:real;
begin
l:=100000;
k:=-99999;
l1:=100000;
k1:=-99999;
for i:=0 to 7 do
begin
x[i]:=StrToFloat(StringGrid1.Cells[0,i+1]);
if x[i]<l then l:=x[i];
if x[i]>k then k:=x[i];
end;
for i:=0 to 7 do
y[i]:=StrToFloat(StringGrid1.Cells[1,i+1]);
for i:=0 to 6 do
begin
f[i]:=StrToFloat(StringGrid2.Cells[0,1]);
if f[i]<l1 then l1:=f[i];
if f[i]>k1 then k1:=f[i];
end;
for i:=0 to 6 do
g[i]:=StrToFloat(StringGrid2.Cells[1,1]);
if l<=l1 then xmin:=l else xmin:=l1;
if k>=k1 then xmax:=k else xmax:=k1;
lp:=xmin;
i:=0;
j:=0;
sum1:=0;
repeat
form2.Memo1.Lines.Add(FloatToStr(lp ));
if lp=x[i] then
begin
sum1:=sum1+y[i];
i:=i+1;
end;
form2.Memo2.Lines.Add(FloatToStr(su m1));
lp:=lp+0.1;
until lp>xmax;
Form2.ShowModal;
end;

Вобщем смысл задачи таков. Из стрингридов заполняются 4 массива, потом по данным этих массивов выводятся координаты двух линии, это особо не важно. Суть проблемы. В том месте которое выделил красным не срабатывает условие на 3 раз, то есть происходит все следующим образом: в поставленной аналитической задаче x[0]=9,8 а следовательно xmin=9,8, т.е lp соответственно тоже 9,8 и первых вход в условие происходит отлично; Далее x[1]=10,2 и когда lp приращением на 0,1 доходит до значения 10,2 то условие срабатывает на ура и второй раз, далее x[2]=10,6 и когда lp опять же путем приращения доходит до 10,6 оно не срабатывает и соответственно дальше оно тоже не срабатывает.
Пробовал с другой аналитикой(цифрами) опять же не срабатывает. Что тут не так? very need your help pls.
P.S. Сорри за код всей процедуры, но выложил все, ошибку найти не могу сам второй день.

[Solvinder]

Проблема решена
Нужно использовать типы с фиксированной точкой. Например Currency. С типом real возникает какая-то неточность.