Вызов метода в asm вставке.

[Mixasik]

Добрый вечер. Помогите пожалуйста переделать данный код в asm вставку:

rad :=80;
cx := image1.Top;// + 80;
cy := image1.Left+ 80;
ang := 0;
while ang <= pi*2 do begin
  ang:=ang + spd;
  x:=cx + Round(Cos(ang) * rad);
  y:=cy + Round(Sin(ang) * rad);
  image1.Canvas.Pixels[x-1, y]:=clRed;
  image1.Canvas.Pixels[x, y]:=clRed;
  image1.Canvas.Pixels[x+1, y]:=clRed;
  image1.Canvas.Pixels[x, y-1]:=clRed;
  image1.Canvas.Pixels[x, y]:=clRed;
  image1.Canvas.Pixels[x, y+1]:=clRed;

Проблема в том, что я не знаю как в asm вызвать

image1.Canvas.Pixels[x, y+1]:=clRed;

Знать бы это с остальным разберусь.

[InternetStranger]

А ты поставь на понравившуюся строку контрольную точку останова (BreakPoint), запускай программу, когда она остановится на этой точке жмешь Ctrl+Alt+C -> увидишь как твою задачу решил компилятор ))

[mihali4]

Второй метод - обратиться в тему АСМ, но там вряд ли этим будут заниматься...
Да и кусок кода никак не подходит под понятие ассемблерной оптимизации...

[MalCer]

Mixasik, в Винде ассемблер и API неотъемлемая часть, поэтому можно сделать так:

Form1.Image1.Canvas.Pixels

Будет равно на AsmApi:

invoke SetPixel, hdc, x, y, dword ptr mycolor