Das geheimnissvolle Controll

[Delbor]

Hi zusammen

In einer Scrollbox möchte ich mehrere Instanzen eines TCustumControl-Nachfahhren platzieren. Dieses versuchen ich in einer Testanwendung so:

Delphi-Quellcode:

procedure TRSPdfFrame.PdfViewCreate;
  var i: integer;
begin
  for i := 0 to 4 do
  begin
    FPDFView := TPdfView.Create(Self);
    FPdfView.Parent := Scrollbox1;
    FPdfView.Name := 'PdfView'+intToStr(i);
    FPdfView.Color := clyellow;
    FPdfView.Height := 120;
    FPdfView.Top := i * (FPdfView.Height + 8);
    FPdfView.Width := Scrollbox1.ClientWidth - 40;
    FPdfView.Left := (ScrollBox1.ClientWidth - FPdfView.Width) div 2;
    ScrollBox1.VertScrollBar.Range := ScrollBox1.VertScrollBar.Range + FPdfView.Height;
  end;
end;

Der Aufruf:

Delphi-Quellcode:

procedure TRSPdfFrame.ScrollBox1Resize(Sender: TObject);
begin
  PdfViewCreate;
  FReportlist.Add('ScrollBox1Resiz')
end;

Der Inhalt von FReportlist wird bei Programmende in eine Datei geschrieben. Deren Inhalt:

Delphi-Quellcode:

13.11.2018 17:32:28
----------------
ScrollBox1Resiz

Meine Fehlermeldung:

Zitat:

Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt HomeOfficerMainProject.exe ist eine Exception der Klasse EComponentError mit der Meldung 'Komponente mit der Bezeichnung PdfView0 existiert bereits' aufgetreten.
---------------------------

Die DCUs und die EXE habe ich schon mehrmals gelöscht.
Was ist da falsch?

Gruss
Delbor