Eindeutigen Name für Frame durch anhängen einer Nummer finden

[Peter-Pascal]

Hallo,

ihr kennt sicherlich das Problem, wenn man mehre gleiche Frames auf eine Form oder anderem Frame setzt, meldet Delphi einen Fehler, dass dieser Frame bereits existiert. Es benötigt einen eindeutigen Namen, den man durch anhängen einer Nummer erreicht. Soweit so gut, wenn Delphi auf einer Form Nummern vergibt für Komponenten, wie TEDit oder TLabel, dann füllt Delphi auch wieder die Lücken, die durch Löschen entstanden sind. Ich wollte es so machen, wie Delphi es macht, konnte es nicht finden oder habe den Code nicht begriffen. Weiß jemand wie Delphi die Nummerierung lückenlos schafft?

Mein Versuch:

Delphi-Quellcode:

function TFrameBuchenBank.findFreeNumber: integer;
var
  I,J,Zahlen: Integer;
  Frame: TFrameBuchenBankDetail;
  ZahlenArray: TArray<string>;
  Fund: boolean;
begin

  for I := 1 to ScrollBoxKontierZeilen.ComponentCount do
  begin

    ScrollBoxKontierZeilen.EnumObjects(
    function (aObject: TFMXObject) : TEnumProcResult
    var Anhalten: boolean;
    begin
      Anhalten:= false;
      if aObject is TFrameBuchenBankDetail then
      begin
        Frame:= aObject as TFrameBuchenBankDetail;
        Fund:= Frame.NameNr = I;
        Anhalten := Fund;
      end;
     if Anhalten
      then Result:= TEnumControlsResult.Stop
      else Result:= TEnumControlsResult.Continue
    end
    );

  if not Fund then exit(I)
  end;

  Result:= ScrollBoxKontierZeilen.ComponentCount + 1
end;

Auch da habe ich lange dran herumexperimentiert.

Danke für eure Mühe.
Gruß Peter