TADO Query

[value is NULL]

naja das ich praktisch als Result eine TStringlist bekomme ist mein ziel

Delphi-Quellcode:

function query(sQuerySQL : string) : string;
var
 sl : TStringlist;
begin
oTmpQry := TADOQuery.Create(nil);
try
  try
    oTmpQry.Connection := Conn;
    oTmpQry.CommandTimeout := 5000;
    oTmpQry.SQL.Text := sQuerySQL;
    oTmpQry.Active := True;
    if oTmpQry.RecordCount > 0 then begin
       oTmpQry.First;
       while not oTmpQry.eof do begin
             sl.add[oTmpQry.Fields[0].asString];
             oTmpQry.Next;
       end;
    end;
except
    on e : exception do begin
      assert := e.message;
      Writeln(assert);
      halt(1);
    end;
  end;
Finally
  oTmpQry.free;
end;
end;

so müsste das glaube ich rein theoretisch gehen, aber wie ordne ich dem result die stringlist (in dem fall sl) zu?

LG