Formular mit Komponenten in laufender Anwendung erstellen.

[EDatabaseError]

weiteres Prob:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 tanks[1].formular := TForm.Create(Application);
 tanks[1].formular.BorderStyle := bsSingle;
 tanks[1].Formular.BorderIcons := [biSystemMenu,biMinimize];
 tanks[1].formular.caption := 'AbC';
 tanks[1].formular.ClientHeight := 140;
 tanks[1].formular.ClientWidth :=  290;

 tanks[1].p1 := TPanel.Create(tanks[1].formular);
 tanks[1].p1.Parent := tanks[1].formular;
 tanks[1].p1.Visible := true;
 tanks[1].p1.BevelOuter := bvNone;
 tanks[1].p1.caption := '';
 tanks[1].p1.align := alClient;

 tanks[1].gp1 := TGroupBox.Create(tanks[1].formular);
 tanks[1].gp1.Parent := tanks[1].gp1;
 tanks[1].gp1.Visible := true;
 tanks[1].gp1.Caption := 'Test';
 tanks[1].gp1.align := alBottom;

 tanks[1].r := TShape.Create(tanks[1].formular);
 tanks[1].r.Parent := tanks[1].gp1;
 tanks[1].r.Visible := True;                                        //Hier Kommt der Stack-Überlauf
 tanks[1].r.Left := 10;
 tanks[1].r.Brush.Color := clMaroon;
 tanks[1].r.Shape := stCircle;
 tanks[1].r.Pen.Style := psClear;
 tanks[1].r.Width := 25;
 tanks[1].r.Height := 25;

 tanks[1].bar := TGauge.Create(tanks[1].formular);
 tanks[1].bar.Align := alLeft;
 tanks[1].bar.Parent := tanks[1].formular;
 tanks[1].bar.visible := true;
 tanks[1].bar.Kind := gkVerticalBar;
 tanks[1].bar.Width := 80;

 tanks[1].formular.Show();
end;

ich hab im Source ne stelle markiert an der bringt er ne Exception das ein Stck überlauf wäre. Danach hängt sich das Programm inkl. Delphi auf