FindComponent

[roderich]

mit ListBox2.Parent bekommst Du das 2. TabSheet, auf dem ListBox2 draufsitzt.
Gehe in einer Schleife durch dessen Controls, wenn das Control ein TMemo ist, dann fülle es.

Als Code:

Delphi-Quellcode:

var
  aParent: TControl;
  i: integer;
begin
  aParent := ListBox2.Parent;
  for i := 0 to aParent.ControlCount-1 do
    if (aParent.Controls[i] is TMemo) then
      FillWithYourData(ListBox2, aParent.Controls[i] as TMemo);
end;

Methode FillWithYourData muß natürlich deklariert sein.

Gruß
Roderich
[EDIT = Luckie]Delphi-Tags hinzugefügt. Beim nächsten mal bitte selber machen. Die Firma dankt. [/EDIT]