dynamisch erstelltes control lässt sich in der höhe anpassen

[kiar]

hallo ,

mit folgendem Code erstelle ich im Create 20 label's und 10 edit's.

Delphi-Quellcode:

var L:TLabel;
    E:TEdit;
    i:Integer;
begin
    for i:=1 to 20 do
      begin
        L:= TLabel.Create(self);
        E:= TEdit.Create (self);
        with L  do
          begin
            parent := self;
            name  :='L'+ IntToStr(i);
            if odd(i) then
              Begin
                with E do
                  begin
                    parent:= self;
                    name  :='E' + IntToStr(i);
                    left  := 70;
                    top   := 10 * i;
                    ctl3d := false;
                    text  :='Ergebnis';
                    width := length(text) * font.Size;
                    height:= font.Height -1;
                  end;
                top   := 10 * i;
                left  := 10
              end
              else
              begin
                top   := 10 *(i-1);
                left  := 40;
              end;

          end;
      end;

nun möchte ich die höhe der edit's ändern. leider kann ich schreiben was ich will die höhe bleibt die gleiche. woran liegt das und wie kann man dies ändern?

danke raik