Strings an eine Funktion übergeben

[needatip]

Hallo,
ich möchte die ausgewählten Strings einer Listbox an eine Funktion übergeben. Diese soll dann eine SQL Berechnung mit den übergebenen Strings durchführen.
In etwa so:
ListBox-Einträge
AGT
RET
BGH
TSB
RZU
FHG

z. B. ausgewählt Eintrag 1,2,5 u. 6

Übergabe der Strings 1,2,5 u. 6 an SQL Funktion
wie kann ich die Listbox-Einträge an die Funktion übergeben ???

Delphi-Quellcode:

function CalcAlle(MYList :TStringList): TSTringlist;
var SQLTEXT: string;
begin
  With Query do
  begin
    SQL.Clear;
    SQLTEXT := 'SELECT AG,SUM(Preis) AS GESPREIS' +
      ' FROM PosListe' +
      ' WHERE AG IN '+MyList+ 
      ' GROUP BY AG;
    SQL.Add(SQLText);
    Close;
    Open;
    Result := ????
  end
end;

Anschließend möchte ich das Ergebnis an eine TChart Komponente übergeben.
Wer kann mir bei dieser Aufgabenstellung helfen.
Bin noch kein Profi.