Рисуем график в Chart - Delphi

[SsdD]

Вот кусочек кода, где черными все работает, если закоммнетировать код с зелеными буквами. А то, что зелеными буквами это как раз то условие, где переход от у=1,26 на у=-3,66. Подскажите, где у меня синтаксис неправильный?

if StrToFloat(StringGrid1.Cells[1,i])>0 then

if ((StrToFloat(StringGrid1.Cells[1,i])<0) and  (StrToFloat(StringGrid1.Cells[1,i-1])>0)) then
   //Убывание
   begin
    SetLedState(ktScrollLock,false);
    SetLedState(ktNumLock,false);
    SetLedState(ktScrollLock,true);
    sleep(zad);
    SetLedState(ktScrollLock,true);
end;

  //Возрастание
  if StringGrid1.Cells[1,i]>StringGrid1.Cells[1,i-1] then
  begin
  SetLedState(ktScrollLock,false);
  SetLedState(ktNumLock,true);
  sleep(zad);
  SetLedState(ktNumLock,true);
  end

  else

  //Убывание
  begin
  SetLedState(ktNumLock,false);
  SetLedState(ktScrollLock,true);
  sleep(zad);
  SetLedState(ktScrollLock,true);
  end

else

  //Возрастание
  if StringGrid1.Cells[1,i]<StringGrid1.Cells[1,i-1] then
  begin
  SetLedState(ktScrollLock,false);
  SetLedState(ktNumLock,true);
  sleep(zad);
  SetLedState(ktNumLock,true);
  end

  else

  //Убывание
  begin
  SetLedState(ktNumLock,false);
  SetLedState(ktScrollLock,true);
  sleep(zad);
  SetLedState(ktScrollLock,true);
  end;
end;
end;

[raxp]

в цикле...

 SetLedState(ktCapsLock, false);
 //
 temp:= StrToFloat(StringGrid1.Cells[1,i-1]);
 newp:= StrToFloat(StringGrid1.Cells[1,i]);

 if newp < temp then begin
   SetLedState(ktScrollLock, true);
   SetLedState(ktNumLock, false);
 end else begin
   SetLedState(ktNumLock, true);
   SetLedState(ktScrollLock, false);
 end;
 if temp=0 then SetLedState(ktCapsLock, true);

 Application.ProcessMessages;
 sleep(1000);

[SsdD]

Круто, спасибо за помощь, все работает, единственное к коду еще можно добавить такое, если допустим в СтригГриде есть шапочка:

if i=1 then
temp:= StrToFloat(StringGrid1.Cells[1,i])
else
temp:= StrToFloat(StringGrid1.Cells[1,i-1]);
newp:= StrToFloat(StringGrid1.Cells[1,i]);

[SsdD]

Вот еще один нюансик вобщем мне нужно нарисовать линию, чтобы она прошла по оси (х,0) началась в точке (0,0) а закончилась на последнем значении Х из таблицы СтрингГрида (х,0) . Вобщем еще ну пробовал сделать так:

Series1.AddXY(StrToFloat(StringGrid1.Cells[0,i]),0,'',clBlack);

- но тут он чудить начал, нетак делает.