Listview Spalten zur Laufzeit?

[kiar]

Delphi-Quellcode:

procedure TForm1.bSucheClick(Sender: TObject);
var
  bFirst: Boolean;
  i: Integer;
  ListItem : TlistItem;
  col:TListColumn;
begin
......  
    for i := 0 to Spalten-1 do
    // hier werden die spalten namen festgelegt
    begin
       col:=lvAnzeige.Columns.Add
        if CheckListBox1.Checked[i] then
           col.Caption := List_Names[i];
    end;
    while not qrMain.Eof do
    begin
    // hier das item und subitem
      ListItem := lvAnzeige.Items.Add;
          with ListItem do 
               begin
               ListItem.Caption:=
                             qrMain.FieldByName('Order_Type').AsString;
          for i := 0 to Spalten-1 do
            begin
               if CheckListBox1.Checked[i] then
               SubItems.Add(qrMain.FieldByName(SQL_Names[i]).AsString);
            end;
        end;
      end;
      gauge1.progress := gauge1.progress + 1;
    end;
    lvAnzeige.Items.EndUpdate;
    gauge1.progress := 0;
    gauge1.Visible:= false;
  finally
    dbMain.Connected:=False; //Verbindung trennen
    Screen.Cursor := Cursor;
  end;
end;

hallo celina, versuche mal so, alles ungetestet

raik