[Coco]

1- Has probado un TMaskEdit?
2- Por ejemplo para asignar un valor al titulo de un Tlabel seria algo asi:
TLabel(Sender).caption:='Titulo';