procedure TForm1.Button2Click(Sender: TObject);
var
  i,j:integer;
begin
  i:=0;
  while i<100 do
  begin
    j:=0;
    while j<100 do
    begin
      Canvas.Pixels[i,j]:=clred;
      j:=j+2;
    end;
    i:=i+2;
  end;
end;