Código Delphi [-] MakeSquares( Image1.Canvas, Point( 70, 30 ), 7, 20 );
MakeSquares( Image1.Canvas, Point( 70, 30 ), 7, 20 );