[Lazarus] New AutoSize issue

[faber]

OK, a get this.

This is my code:
    ...
    Second form closes and ends with some calculations
    ...	
    debugln('set sr1 to visible true');
    SR1.Visible:=true;
    SG1.Visible:=false;
    if Assigned(SR1) AND SR1.Visible then begin
       OptsR.Parent:=SR1;
       OptsR.Top:=1;
       OptsR.Left:=11;
       OptsR.ArrowType:=atDown;
       OptsR.Height:=19;
       OptsR.Width:=19;
       OptsR.Visible:=true;
    end;
    StopA.Visible:=false;

and LCL debug from app on WinXP (works ok):

set sr1 to visible
450-:-743 -1 //debug from OnResize
450-:-743 -1
ChangeShowing SR1:TStringGrid1 new FShowing=True
TWinControl.CMShowingChanged SR1:TStringGrid1 HandleAllocated=True []
TWinControl.DoSendShowHideToInterface SR1:TStringGrid1 FBoundsRealized= x1=2,y1=
21,x2=745,y2=471 New=True
ChangeShowing :TStringGrid1 new FShowing=False
TWinControl.CMShowingChanged :TStringGrid1 HandleAllocated=True []
TWinControl.DoSendShowHideToInterface :TStringGrid1 FBoundsRealized= x1=2,y1=21,
x2=745,y2=471 New=False
TWinControl.UpdateShowing OptsR:TArrow handle not allocated
ChangeShowing OptsR:TArrow new FShowing=True
TWinControl.CMShowingChanged OptsR:TArrow HandleAllocated=True []
TWinControl.DoSendShowHideToInterface OptsR:TArrow FBoundsRealized= x1=11,y1=1,x
2=30,y2=20 New=True
ChangeShowing StopA:TButton new FShowing=False
TWinControl.CMShowingChanged StopA:TButton HandleAllocated=True []
TWinControl.DoSendShowHideToInterface StopA:TButton FBoundsRealized= x1=432,y1=3
,x2=523,y2=24 New=False


and LCL debug from app on Vista (not works correct):

ChangeShowing StopA:TButton new FShowing=False
TWinControl.CMShowingChanged StopA:TButton HandleAllocated=True []
TWinControl.DoSendShowHideToInterface StopA:TButton FBoundsRealized= x1=432,y1=3
,x2=523,y2=24 New=False
set sr1 to visible
ChangeShowing :TStringGrid1 new FShowing=False
TWinControl.CMShowingChanged :TStringGrid1 HandleAllocated=True []
TWinControl.DoSendShowHideToInterface :TStringGrid1 FBoundsRealized= x1=2,y1=21,
x2=745,y2=470 New=False
TWinControl.UpdateShowing OptsR:TArrow handle not allocated
449-:-743 -1
449-:-743 -1
ChangeShowing OptsR:TArrow new FShowing=True
TWinControl.CMShowingChanged OptsR:TArrow HandleAllocated=True []
TWinControl.DoSendShowHideToInterface OptsR:TArrow FBoundsRealized= x1=11,y1=1,x
2=30,y2=20 New=True
ChangeShowing SR1:TStringGrid1 new FShowing=True
TWinControl.CMShowingChanged SR1:TStringGrid1 HandleAllocated=True []
TWinControl.DoSendShowHideToInterface SR1:TStringGrid1 FBoundsRealized= x1=2,y1=
21,x2=745,y2=470 New=True