AcessViolation?

[Sanguis]

Hallo,

leider habe ich schon wieder ein Problem. Sorry, falls ich nerve.

Ich habe folgende Function:

Delphi-Quellcode:

function getWNamenByID(id:String):TStrings;
var sl:TStrings;
begin
roster.sqldings.Active := false;
 roster.sqldings.SQL.Clear;
 roster.sqldings.SQL.Add('SELECT * FROM namen where workerID = ' +id+';');
 roster.sqldings.Active := true;

 sl.create;
 //sl.Clear;
 while not roster.sqldings.Eof do begin
 sl.Add(kalender.sqldings.FieldByName('name').AsString);
 roster.sqldings.Next;
 end;
 
 Result := sl;
 sl.Free;
end;

Der Aufruf sieht so aus:
roster.namen.Items.AddStrings(func.getWNamenByID(wid.Caption)) Leider bekomme ich (laut Haltepunkt) beim Aufruf eine AccessViolation und ich weiß nicht wieso...

Gruß,
Andreas