Listboxen "verschmelzen" lassen

[PierreB]

Moin,

ich hab da ein etwas seltsames Problem:
Also ich habe 3 Listboxen. In diesen stehen in jeder Zeile Daten, die im Zusammenhang stehen.
Beispiel:
Listbox1 - 1 Zeile: Ich
Listbox2 - 1 Zeile: habe
Listbox3 - 1 Zeile: Hunger.

Es gibt circa 20 Zeileneinträge. Nun möchte ich das wenn ich auf ein Item in der Listbox klicke, dass die zugehörigen Items der anderen Listboxen auch markiert werden. Das hab ich so gemacht:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
i : integer;
begin
i := listbox1.ItemIndex;
Listbox2.itemindex := i;
listbox3.itemindex := i;
end;

Das Problem ist jetzt nur, die Scrollbalken. Steht der eine Scrollbalken höher als der andere, sind die Items nicht mehr in einer Linie markiert. Also ist meine Frage, wie kann ich wenn ich Listbox1 runterscrolle auch die beiden anderen automatisch mutgescrollt werden ? Ich hoffe ihr versteht was ich meine und ich hoffe ihr könnt mir helfen. Im Anhang sind 2 Bilder was ich meine.

Danke schonmal,