[Anfänger] Wortliste auf einen String überprüfen

[JonasxD]

Hallo DP-User,

Im Informatik Unterricht haben wir (endlich) mit Delphi angefangen. Nun sollen wir bis zum Ende des Schuljahres eine Abgespeckte Version des Spiels "Text Express" schreiben.
Bei dem Spiel geht es darum, dass man verschiedene Buchstaben bekommt (6). Und dann aus diesen Wörter bilden muss. Je größer das Wort desto mehr Punkte erhält man.
Wir entwickeln das Programm vollständig in der Schule, doch habe ich im Moment nichts zu tun und dachte mir ich fange schonmal an um ein paar Pluspunkte zu sammeln.
Das gesamte Programm soll als Konsolenanwendung geschrieben werden.

Mein Problem ist nun, dass ich nicht weiß, wie ich eine vorhandene Wortliste ( wortliste.txt eine Zeile - ein Wort) auf einen String hin überprüfen lassen kann.
Ich habe bereits dieses und andere Foren durchstöbert und nichts konkretes gefunden.
Ich muss wohl die gesamte Liste mit LoadFromFile in eine string-Liste einlesen und dann überprüfen, ob mein String darin enthalten ist.
Da stecke ich fest. Hier mein bisheriger Quellcode:

Delphi-Quellcode:

program TEultra;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  option : integer;
  buchstaben : array[1..6] of string;
  buchstabe : integer;
  i : integer;
  wort : string;
begin
repeat
  writeln('Willkommen bei Text Express Ultra!');
  writeln('1 = Spiel starten');
  writeln('2 = Highscore');
  writeln('3 = Spiel Beenden');
  readln(option);
  if option = 1 then
    begin
    for I := 1 to 6 do
      begin
      randomize;
      buchstabe := random(26) + 65;
      buchstaben[i] := char(buchstabe);
      end;
      writeln(buchstaben[1]);
      writeln(buchstaben[2]);
      writeln(buchstaben[3]);
      writeln(buchstaben[4]);
      writeln(buchstaben[5]);
      writeln(buchstaben[6]);
      writeln('Bilden sie aus diesen Buchstaben nun die Wörter!');
      writeln('Drücken sie enter um mit dem Spiel zu Beginnen!');
      readln;
      readln(wort);
    end
  else if option = 2 then
    begin

    end
  else
    begin
    writeln('Bitte eine Gültige Option eingeben!');
    end;
until option = 3;
end.

Ihr müsst nur mal meinem Gehirn nen Anstoß geben^^

bis dahin mfg Jonas