Anchors akRight in DX10 Seattle defekt ???

[arnof]

Irgendwie schon traurig, das man Grundlagen, die mind. seit XE5 funktioniert hatten nun wieder so nachbauen muss:

Code:

procedure TFM_form.TabControl1Resize(Sender: TObject);
 var i:integer;
      ed:TEdit;
begin
 for i := 1 to 7 do begin
  try
   ed:=FindComponent('Edit'+IntToStr(i)) as TEdit;
   ed.Width:=TabControl1.Width-ed.Position.X-5;
  finally
  end;
 end;
end;