Listview weitere Daten die nicht in der Liste sichtbar sind

[Darty]

Danke für den Beispiel der funktioniert auch.

Nun hatte ich es für meinen Programm abgeändert. Aber irgendwie bekomme ich es nicht
so hin wie ich es möchte.
Hier nur mal ein kleiner Auszug aus dem Code. Dein BeispielCode
setzt denke ich voraus das es neu eingefügt wird oder ? Oder muss ich bei der ListView
Erstellung schon etwas beachten weil ich 7 Columns schon vorher erzeugt habe?

Delphi-Quellcode:

procedure TStatus_Form.Button1Click(Sender: TObject);
var
  Data: TMyData;
begin
  If RadioGroup1.ItemIndex = 0 then
  begin
    Haupt_Form.ListView1.ItemFocused.SubItems[1] := 'ok'; 
    // Ab hier versuche ich Dein Beispiel einzubringen.
    Try
      data := TmyData.Create; // Objekt erzeugen
    Except
      data.Status_Name := Name_Edit.Text; 
      data.Status_datum := DateTimePicker1.Date;
    End;

    // Ich weiss nicht mal ob das funktioniert hat
    // Nun möchte ich es in der selektierte Zeile einfügen.

    Haupt_Form.ListView1.AddItem('test', Data);  // Die Zeile ist sicher falsch ?

  end;
  close;
end;