Hola Angel Fernández
El constructor sirve para hacer mensajes, los haces en este copias y pegas en delphi, nada mas.
Incluso puede hacer sentencias
If Then o
Caso Of ademas de otras opciones.
Aqui te lo envio, espero te sirva.
http://rapidshare.com/files/5329232/...uctor.zip.html
Saludos