[Deiv]

Lepe, encontré el error y es que como enviaste 2 post con el código:

Código Delphi [-]
tmp.Assign(PaintBox1.Canvas.Font);
PaintBox1.Font.Size:= 12; 
Fsub.Assign(PaintBox1.Font);
Fsub.Size:= Fsub.Size -2;

Era un juego visual, pues en aquel estaba primero tmp, luego PaintBox, en el segundo de abajo estaba al revés por lo que obvie esa parte

Código Delphi [-]
PaintBox1.Canvas.Font.Size:= 12; //ERROR, YO LO TENÍA = PaintBox1.Font.Size
tmp.Assign(PaintBox1.Canvas.Font);
with PaintBox1.Canvas do
    FillRect(Rect(0,0,Width,Height));
Fsub.Assign(PaintBox1.Canvas.Font);
Fsub.Size:= Fsub.Size -2;

Ese error me achicaba las letras, y no me dejaba pintarlo al primer click.
FIN DE ESTE HILO.
Thanks Lepe
Saludos