1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Procedure ListviewSelect(TForm:Form;TList:Listview;SQL:String;Group:String);
var ID : Integer;
    lRow : Integer;
begin
   try
      ID := convert.ToInt32 (TList.SelectedItems[0].Text) ;  // ID des selektierten Satzes
      lrow := TList.SelectedItems[0].Index ;
   except
      on ex: Exception do Messagebox.show(ex.ToString  ) ;
   end;
   FillForm (TForm,Group,SQL+id.ToString ); // Füllt Form mit Daten
   TList.items.Item [lrow].Selected :=true; //setzt Listview wieder richtig
end;