//Квадрат 
 Image1.Canvas.Brush.Color:=clBlack; 
 Image1.Canvas.Pen.Color:=clBlack; 
 Image1.Canvas.Rectangle(0,0,100,100); 
   
 //Эллипс 
 Image1.Canvas.Brush.Color:=clYellow; 
 Image1.Canvas.Pen.Color:=clYellow; 
 Image1.Canvas.Ellipse(100,0,200,100); 
   
 //Многоугольник 
 Image1.Canvas.Brush.Color:=clRed; 
 Image1.Canvas.Pen.Color:=clRed; 
 Image1.Canvas.Polygon([Point(250,0),Point(200,100),Point(300,100)]);