Bueno.
¡Un Pasito más!
El tema de los font es que no se pueden asignar de golpe, o sea .....font := .....font.
Hay que hacerlo detalladamente, así (no he probado, pero lo compila):
Código Delphi
[-]
Font.Size := Form1.Pica.Font.Size;
Font.Family := Form1.Pica.Font.Family;
Font.Style := Form1.Pica.Font.Style;
Sigo investigando mientras espero vuestra ayuda.
Saludos.