Laufzeit Label wird nicht angezeigt

[citybreaker]

Irgendwie klappts wieder, mit vohin der Pc abgestürzt und hab ihn neugestartet.
Kein Plan, ob das jetzt irgend nen Fehler von Delphi war. Aber es klappt nun die
Labels sind jetzt sichtbar wenn ich sie erzeuge. oO

[citybreaker]

So habe das Projekt mal angehangen hoffe es findet sich jemand zurecht, indem Code wir war.
Ist inzwischen schon was mehr geworden. Um das Prohjekt zu öffnen braucht man die TBX Toolbar
geschichte.

Die Labels werden bei OnMouse Down der MainFrm erzeugt. Der erzeugen Code ist in der funktion.pas

--- Edit ---
Anhang vergessen

[mkinzler]

Ich würde die dynamsich erzeugten Labels in einem Array verwalten. das Auslagern der dyn. Erzeugung in eigene Funktion ist sehr unubersichtlich, auch die mehrfache Anlage verschiedener Variablen mit dem selben Namen und die Verwendung von gloablen Zählvariablen wirkt etwas verwirrend.

Delphi-Quellcode:

procedure TMainFrm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
//var MyLabel: TMyLabel; //Überflüssig
begin
  if ListBox1.ItemIndex >= 1 then
  begin
    CreateModel(MainFrm,MouseX,MouseY,
                ListBox1.Items.Strings[ListBox1.ItemIndex]);
    MainFrm.Update();
  end;
end;