Как нарисовать линию по пикселям

[DenLab]

Подскажите как нарисовать линию на Canvas по пикселям, а не сразу LineTo(X,Y). Нужно для визуализации процесса.

[SNUPY]

var
  i,y:integer;
begin
  Canvas.Brush.Color:=clBlack;
  for i:=0 to 100 do
  begin
    y:= round(10+(i-2)*12/5);
    Canvas.Rectangle(i,y,i+10,y+10);
  end;
end;

В основе лежит урание прямой (x-x1)/(x1-x2)=(y-y1)/(y1-y2)
y,x-переменные
x1,x2,y1,y2=const

[Altera]

Вот, написал когда-то

procedure Ttest_form1.wayToPoint(sp, fp: tPoint);
var
c, dx, dy: integer;
step: real;
procedure temp(x, y: integer);
begin
   if canvas.Pixels[x, y] <> clBtnFace then canvas.Pixels[x, y] := clBlue;
end;
begin
   dx := fp.X - sp.X;
   dy := fp.Y - sp.Y;
   if dx >= dy then
   begin
      step := dy / dx;
      for c := sp.X to fp.X do
      temp(c, round(sp.Y+step*(c-sp.X)));
   end
   else
   begin
      step := dx / dy;
      for c := sp.Y to fp.Y do
      temp(round(sp.X+step*(c-sp.Y)), c)
   end;
end;

[DenLab]

to SNUPY : Нужна ровная линия в 1 pixel. Rectangle не подойдёт.
to Altera : Можно прокоментировать листинг? Интересный вариант.

[DeKot]

4 DenLab
Открой новый проект.Кинь на форму таймер.(Enabled = true; Interval = 50
Cоздай событие OnTimer. Модуль проекта должен выглядить вот так :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject); 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x: integer = 50;  // начало рисования линии

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObjec);
begin
  Form1.Canvas.Pixels[x,100]:= clRed;
  x:= x + 1;
end;

END.

Изменяя Interval , получишь разную скорость прорисовки.Запуск и останов рисования можно делать по OnClick или OnKey.
Как изменять толщину линии сам подумай.Всего лишь одну строку кода добавить нужно.