TSQLQuery.Next gibt einen Fehler bei MSSQL-ODBC-Verbindung

[Painterxyz]

Nachdem ich nun eine ODBC_Verbindung zu einer ms sql 2005 Datenbankhergestellt, mit der TSQLConnection-Komponente hergestellt hatte, ist es möglich die Daten auszulesen mit der TSQLQuery-Komponente.

So war ich vorgegangen: http://www.delphipraxis.net/internal...ct.php?t=99598

Beim auslesen in einer While-Schleife kommt es zu Problemen.

Delphi-Quellcode:

procedure TForm1.sqlquery();
var c,r: Integer;
begin
  r:=0;
  with SQLQuery1 do
  begin
    Close;
    Open;
    First;
  end;
  with SQLQuery1 do begin
    if FieldList.Count > 0 then
    begin
      StringGrid1.ColCount := FieldList.Count;
      while not SQLQuery1.Eof do
      begin
        for c := 0 to FieldList.Count - 1 do
        begin
          StringGrid1.Cells[c,r] := Fields.Fields[c].AsString;
        end;
        Inc(r);
        SQLQuery1.Next;
      end;
    end;
  end;
end;

Die Ergebnismenge beträgt 4 Zeilen bei der Abrage, SELECT * FROM dbo.irgendwas

An sich funktioniert es, aber beim 4. SQLQuery1.Next kommt eine Fehlermeldung.

Datenbank-Server-Fehler: dbExpress for ODBC: Failed to get an error message

Weiss jemand, wo der Fehler liegt und wie kann man den beheben?