Eine Art Tabelle mit Check- & Listbox

[Ultimator]

Ich hab das jetzt mal mit 2 ListBoxen gemacht und diesem Code hier:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if not (ListBox1.ItemIndex > ListBox2.Items.Count) then
  ListBox2.ItemIndex := ListBox1.ItemIndex;
end;

Wenn ich jetzt einen Eintrag in der ersten ListBox anklicke, dann wird dieser blau und der entsprechende Eintrag in der 2. ListBox wird auch blau markiert.

Oder meinst du, dass man mehrere Einträge gleichzeitig markiert und dass dann in der anderen ListBox übernommen wird?