fillRect


procedure fillRect(x, y, width, height: integer);

Fills the specified rectangle. 

  begin
    fillRect(5, 5, 20, 20);
    repaint;
    delay(1000);
  end.

See also: drawRect, setColor, repaint