"Nicht genügend wirkliche Paramenter" - warum???

[Plague]

Also das Problem, mit den Parametern habe ich gelöst. Die lösung dafür war (q, true, ex).
Aber mir scheint der ganze Code falsch zu sein. Es kommen nur Fehler...

Hier ist der Code:

Delphi-Quellcode:

Var 
  NewColumn                             : TListColumn; 
  ListItem                              : TListItem; 
  i                                     : Integer; 
Begin 
  With Query Do 
  Begin 
    SQL.Text := 
      'SELECT *' + #10 + 
      'FROM   Tabelle'; 
    Open; 
  End; 
  With ListView1 Do 
  Begin 
    Columns.Clear; 
    Items.Clear; 
    If Not Query.Eof Then 
    Begin 
      For i := 0 To pred(Query.FieldCount) Do 
      Begin 
        NewColumn := Columns.Add; 
        NewColumn.Caption := Query.Fields[i].FieldName; 
      End; 

      ListView1.ShowColumnHeaders := True; 

      While Not Query.Eof Do 
      Begin 
        For i := 0 To pred(Query.FieldCount) Do 
        Begin 
          If i = 0 Then 
          Begin 
            ListItem := Items.Add; 
            ListItem.Caption := Query.Fields[i].asString; 
          End 
          Else 
            ListItem.SubItems.Add(Query.Fields[i].asString); 
        End; 
        Query.Next; 
      End; 
    End; 
  End; 
End;

Dazu zu sagen ist noch, dass ich die Abfrage über das Tutorial von delphi-source.de "MySQLDirect" vornehme und daher vor jedes Query noch ein Fmysql gehört (also Fmysql.Query(q, true, ex))...

Danke
Thomas