Moin!
Wie schon gesagt: mach es gleich in der Basisklasse:
Delphi-Quellcode:
procedure Tfrm.druckln (Const st : string; Abox : TStrings = Nil);
begin
if AufDrucker then
println (st);
if AufBildschirm And Assigned(Abox) then
Abox.Add (st);
end;
Der 2. Parameter ist so optional und wenn du ihn angibst, dann z.b. von einer ListBox nur noch das ListBox1.Items angeben, weil durch das TStrings kannst du dort auch einfach z.B. die Lines eines Memos oder sonstiges übergeben und bist nicht mehr so steif auf eine ListBox festgelegt...
MfG
Muetze1