No me haga caso Eduardo Ya lo resolvi Gracias a usted solo que no sabia que significaba el
Parent:=<> .
Y quedo asi para quien le sirva.
Código Delphi
[-]
with TZRLabel.Create(Application) do begin
if tPrintElemDocPOSPAGINA.Value=1 then
Parent :=zrEncPag
else Parent :=zrPiePag;
....
Que tenga buen día.