Datensätze bei Listview-ItemSelcet abrufen

[Plague]

Hier weise ich Data den ID Wert zu...

Delphi-Quellcode:

with Frame31 do
  begin
    Query1.Close;
    Query1.SQL.Text := 'SELECT * FROM Benutzer';
    Query1.Open;
    While not (Query1.Eof) do
    begin
      item := ListView1.Items.Add;
      item.Data := Pointer(Query1.FieldByName('ID').AsInteger);
      item.Caption := Query1.FieldByName ('Benutzer').AsString;
      item.SubItems.Add(Query1.FieldByName ('Berechtigung').AsString);
      Query1.Next;
    end;
  end;

@Gollum: Hat leider auch nicht geklappt

Gruß
Thomas