Necesito Ayuda con Printer.Canvas !!!

[Peterlolazo]

necesito ayuda!!! estoy haciendo un programa cuyo fin es imprimir los datos que se introduscan en edits, y no deben salir los edits vacios, pero si no lleno los edits con datos sale el espacio en blanco en la pagina, y como son muchos edits los que siempre se dejan en blanco, queda muchisimo espacio en la hoja, ¿como hago para que en la impresion solo me salgan ordenaditos los edits llenados con datos uno debajo del otro? ejemplo para que entiendan mejor.

Código Delphi [-]
If principal.Edit6.text<> '' then
Printer.Canvas.textout(2500,690,principal.Edit6.text );

If principal.Edit7.text<> '' then
Printer.Canvas.textout(2500,780,principal.Edit7.text);

If principal.Edit5.text<> '' then
Printer.Canvas.textout(2500,870,principal.Edit5.text );

lo que sucede es que si no lleno el edit7 me queda todo ese espacio vacio... ayuda, el edit 5 deberia tomar el lugar del 7... son como 70 edits!!!.