TCombobox -> Height verändert sich nach dem Create

[bernau]

Hier ein kleines Testprogramm zu einem Verhalten, welches ich nicht verstehe:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  fCombobox:=TCombobox.create(Self);
  fCombobox.Parent := self;
  fCombobox.text := Inttostr(fCombobox.height);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  fCombobox.text := Inttostr(fCombobox.height);
end;

Wenn das Programm gestartet wird, dann steht in der Combobox der Wert 25.

Wenn ich danach den Button drücke, dann steht in der Combobox der Wert 21.

Die Höhe der Combobox hat sich geändert. Warum? Kann das einer nachvollziehen, oder liegt es an meiner Delphi-Version. (Embarcadero® Delphi 10.2 Version 25.0.29039.2004 )