[roamer]

В Help`е к Delphi есть пример :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  W: Word;
begin
  for W := 10 to 200 do
    Canvas.Pixels[W, 10] := clRed;
end;