Suche in ListBoxes

[Loni]

Hi zusammen ich bin neu hier und auch noch nicht ganz so vertaut mit Delphi und falls das hier die falsche rubrik ist dann bitte verschieben.

Also ich möchte gerne (am besten über den Finddialog) 2 ListBoxes nach einem eingegeben Wort durchsuchen lassen und dieses dann
markieren lassen (z.B. in clred) nun habe ich schon unzählige Beiträge in diesem Forum gelesen aber noch nicht mal annähernd etwas gefunden das ich hätte verstehen können oder in mein Programm einbauen können . Ich habe gelesen das der FindDialog nur mit
RichEdits funktioniert und hoffe das dem nicht so ist.

Also ich habe eine ListBox in der mann in der mann zwischen 2 "Hilfebüchern"(auch ListBoxes aber in einer andern Form) wählen kann und in der selben Form ein FindDialog der das gerade ausgewählte "Buch" nach einem eingegebnen Wort wie "Farben" durchsuchen soll und dann halt wie erwähnt markieren soll.

Delphi-Quellcode:

procedure TForm4.BtHilfeOffnenClick(Sender: TObject);//Öffnen button um die einzelnen hifen zu öffnen
begin
if ListBox1.ItemIndex=0 then //wenn auf Allgemeine Hilfe(ItemIndex=0) gecklickt wird öffnet sich eineneu ListBox "Allgemeine Hilfe"
begin
Form6.Visible:=true;//Form auf der die beiden ListBoxes sind
Form6.Caption:='Allgemeine Hilfe';
Form6.ListBoxHilfeAllgemein.Visible:=true;
Form6.ListBoxHilfeAnwendungen.Visible:=false;
end
else
if ListBox1.ItemIndex=1 then //wenn auf MiniPaint Anwendungen(ItemIndex=1) gecklickt wird öffnet sich eineneu ListBox "Anwendungen Hilfe"
begin
Form6.Visible:=true;
Form6.Caption:='MiniPaint Anwendungen';
Form6.ListBoxHilfeAllgemein.Visible:=false;
Form6.ListBoxHilfeAnwendungen.Visible:=true;
end;
end;


procedure TForm4.BitBtnSucheClick(Sender: TObject);
begin
FindDialog1.Execute;
end;

procedure TForm4.FindDialog1Find(Sender: TObject);
begin
//Wenn "Hilfe Allgemein" angeklickt  dann öffne "Form6.ListBoxHilfeAllgemein" suche das Suchwort dort und markiere es 
//Wenn "Hilfe Anwendungen" angeklickt  dann öffne "Form6.ListBoxHilfeAnwendungen" suche das Suchwort  dort und markiere es
end.

Hoffe ihr durschaut das Chaos und könnt mir helfen und danke im vorraus(ich habe halt absolut keinen plan weil wir das noch nicht im untericht hatten und da in NRW gerade ferien sind kann ich nur euch auf die nerven gehen ^^).Ich finde das Forum hier klasse .

[Wenn ich statt den 2 Listboxes RichEdits nehmen muss dann bitte auch erklären wie ich da das scrollen einstellen kann BIG THX]