TFrames auf Scrollbar --> FindComponent

[shmia]

Delphi-Quellcode:

procedure TMainForm.Neues_Blatt(Sender: TObject); 
  // Hier schreibst du 'Frame'
  Child.name    := 'Frame' + IntToStr(Anzahl_Neu);
  ...
  // und hier wird nach 'Anzeige' gesucht !!!!
        if (FindComponent('Anzeige' + IntToStr(i)) as TFrameAnzeige) <> nil then
            with (FindComponent('Anzeige' + IntToStr(i)) as TFrameAnzeige) do begin