[Lazarus] focus vs. parent changing

[u-boot]

Same question here as in irc nobody answered it a few hours ago.


I tried the following lines. It does not work with setfocus before 
parent changing.
My question is, if it should work in this order or if this is correct 
behaviour.


procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.SetFocus;
  if (Edit1.Parent=Panel2) Then Edit1.Parent:=Panel1 else 
Edit1.Parent:=Panel2;
end;