Работа со ScanLine

[ofx]

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

Результат работы попиксельного вывода и сканлайном:




Процедура вывода сканлайном:

void __fastcall TForm1::Button135Click(TObject *Sender)
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
TColor *ptr; 
 double D,l1,l2;
try
  {
    pBitmap->Assign( Form1->Image1->Picture->Bitmap);
    double h = pBitmap->Height;
    double w =  pBitmap->Width ;
    for (int y1 = 0; y1 < 100; y1++)
    {
     for (int y = 0; y < pBitmap->Height; y++)
     { 
      ptr = (TColor *)pBitmap->ScanLine[y];
      for (int x = 0; x < pBitmap->Width; x++) 
      { 
         l1 = sqrt(((w/2)-x)*((w/2)-x)+((h/2)-y)*((h/2)-y))  ;
         l2 = sqrt(((w/2)-x)*((w/2)-x)+(((h/2)-5)-y)*(((h/2)-5)-y))  ;
         l1!=0 ? D = ((l2)  -  ( l1)) / (l1) : D = 0;
         ptr[x] = RGB(D*100*y1,0,0);
      }
     }    
    Form1->Image1->Picture->Bitmap->Assign(pBitmap) ;
    Application->ProcessMessages();
    }
  }
  catch (...)
  {
    ShowMessage("Could not load or alter bitmap");
  }
}

[ofx]

Проблема решена.