Spectragram

[Luckie]

Ich dachte an so was:

Delphi-Quellcode:

procedure AuswahlFenster;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    ListeFuellen(sl);
   // mach was mit sl
  finally
    sl.Free;
  end;
end;

procedure ListeFuellen(sl: TStringList);
begin
  //...
end;