ADOQuery meckert bei leeren Strings

[Gargamel]

Hallo

Wenn ich alle Datensätze nach einer Abfrage auflisten will und ein leerer String ist dabei, meckert AdoQuery.
Meldung: "Variante des Typs (NULL) konnte nicht in Typ (String) konvertiert werden"
Hier ist der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var numRecs:integer;
begin
  ListBox2.Clear;
 
  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add('select * from testtabelle order by testfeld');
  AdoQuery1.Active:=true;
  AdoQuery1.ExecSQL;
  numRecs:=ADOQuery1.RecordCount;

  if NumRecs > 0 then
  Begin
    ADOQuery1.First;
    while(ADOQuery1.RecNo < numRecs) do
    Begin
      ListBox2.Items.Add(ADOQuery1.FieldValues['testfeld']);
      ADOQuery1.Next;
    End;
    ListBox2.Items.Add(ADOQuery1.FieldValues['testfeld']);
  End;
end;

Viele Grüße
Gargi