[ecfisa]

Hola.

La verdad es, que no sé que código usas ni como lo estas usando...

De este modo,

Código Delphi [-]
...
begin
  MakeSquares(Image1.Canvas, Point( 10, 10 ), 7, 30 );
  Image1.Canvas.TextOut(12,12, 'Hola');
end;

obtengo este resultado:


Saludos