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;