String in Memo suchen

[Kratos]

@Rolf Frei
Ja, du hast recht. Ich war zu vorschnell mit meiner Erfolgsnachricht.
Komischerweise hat es beim ersten Programmstart genau so funktioniert wie es sollte. Danach aber nicht mehr.
Jetzt läuft es aber.

----------------------------------------------------------------

Ich hab inzwischen schon wieder ein neues Problem
Ich hab mein Programm weiter ausgebaut.
Und zwar:

Programmaufbau:

Code:

Form6 -> ListBox6A, ListBox6B
Form7 -> Edit7, Button7

Bisher:
Per Doppelklick auf ein Item in ListBox6A, wird dieses in ListBox6B geschrieben. Wenn ein in ListBox6A geklicktes Item bereits in ListBox6B vorhanden ist, wird es in ListBox6B gar nicht erst aufgenommen.
Wird in ListBox6A das 6. Item doppelgeklickt, erscheint Form7.
---- Bis hierhin klappt alles.

Nun soll in Edit7 ein String eingegeben werden. Button7 wird gedrückt. Der String aus Edit7 soll als neues Item der ListBox6B erscheinen.
-> Und genau das letzte klappt nicht.

Hier mein Versuch:

Code:

procedure TForm7.Button7Click(Sender: TObject);
begin
   Form6.ListBox6B.Items.Add(Edit7.Text);
   Close;
end;

Wo ist mein Denkfehler?

Gruß
Kratos