[NumLock]

А велосипед то изобретен)))

LineDDA function

The LineDDA function determines which pixels should be highlighted for a line defined by the specified starting and ending points.

Пример:

Код:

procedure LineDDAProc(X, Y: Integer; Data: Integer); stdcall;
begin
  Form1.Canvas.Pixels[X, Y]:=clBlack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LineDDA(10, 60, 109, 109, @LineDDAProc, 0);
end;

Получает все точки для линии (10, 60)-(109, 109). Координаты возвращает через функцию обратного вызова LineDDAProc в X и Y.