String aus Datei lesen

[Der schöne Günther]

Wenn du nur ein Wort haben willst reicht eigentlich schon:

Delphi-Quellcode:

var
   sl:TStringList;
begin

   sl := TStringList.Create();

   try
      sl.LoadFromFile(c:\meineDatei.txt');
      Button5.Caption := sl[Random(sl.Count)];
    finally
        sl.Free();
    end;