[Delphi] Drukowanie ScrollBox'a, obsługa Controls

Chciałbym wydrukować zawartość ScrollBox'a o szerokości 700 na A4
dukuje mi tycie tycie ....

with Printer do
    begin
      BeginDoc;
        stol.PaintTo(Handle, 10, 10);
      EndDoc;
    end;
end;

czytałem coś z googli o skalowaniu ale się nie doczytalem. Może któs wyjaśnić jak to zrobić ?
<edit>
Drugi problem :
Dynamicznie tworzę obiekt (tu Rodzic), na tym obiekcie tworzę 3 inne
obiekty (dziecko1, dziecko2, dziecko3)
w tym przypadku Rodzic.ControlCount = 3 teraz powiedzmy dziecko1
dostaje focusa, ja chciałbym sprawdzić czy Rodzic.ControlCount-1 =
numer controls'a dla dziecko1 jak to zapisać ?