Imprimir un formulario

[rafita]

Hola compañeros,

Voy a explicar mi problema. Pretendo imprimir el contenido de la ficha activa, para ello pongo un botón y utilizo el siguiente código:

procedure TFResumenAnual.BImprimirClick(Sender: TObject);
begin
  // se imprime en horizontal, directamente desde el formulario (pantalla)
  if PrinterSetUpDialog1.Execute then
     begin
       FResumenAnual.PrintScale:=poPrintToFit;
       FResumenAnual.Print;
     end;
end;

La utilización del PrinterSetUpDialog es para poder elegir la orientación vertical, más adecuada al tamaño del formulario.

El problema es el siguiente:
* Si el formulario es "disponible" da error de violación de memoria.
* Si el formulario se "crea automáticamente", entonces no da error, pero sólo imprime las partes creadas en diseño, no las que se crean o modifican en ejecución (simplemente asignar un valor a un Label).

El código lo he utilizado una vez pero el formulario en cuestión era el principal del proyecto, y en esa ocasión funcionaba perfectamente, imprimiento el contenido exacto de la pantalla.

¿Alguien tiene alguna idea?

Gracias, y hasta luego