{
Pixels example
This example draws a red line (very slowly) when the user presses a button. Attach the following code to the button’s OnClick event handler:
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  W: Word;
begin
  for W := 10 to 200 do
    Canvas.Pixels[W, 10] := clRed;
end; 
