Draw Line Pixel Method

procedure TForm1.BitBtn1Click(Sender: TObject);
//pixels line drawing
//paint 1000000 pixels
var i : longInt;
k : byte;
begin
clearBm;
t1 := gettickCount;
with bm do with canvas do
for i := 1 to 10000 do
for k := 0 to 99 do pixels[k,k] := $0;
t2 := gettickcount;
showtime(1000000);
end;