procedure TForm1.Draw;
var
  l, t, w: Integer;
begin
  // 清空缓冲区
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  // 设置四边形的颜色
  glColor3f(1, 0.5, 0);

  // 绘制第一个多边形
  l := 10;
  t := 10;
  w := 64;
  glBegin(GL_QUADS);
  glVertex2f(l, t);
  glVertex2f(l + w, t);
  glVertex2f(l + w, t + w);
  glVertex2f(l, t + w);
  glEnd();

  // 绘制第二个多边形
  l := 80;
  t := 10;
  glColor3f(0, 0.5, 0);
  glBegin(GL_QUADS);
  glVertex2f(l, t);
  glVertex2f(l + w, t + w);
  glVertex2f(l + w, t);
  glVertex2f(l, t + w);
  glEnd();

  SwapBuffers(FDC); //交换双缓冲区内容，这将把刚绘制的图形翻印到屏幕上。
end;