Per ReadLn() zufällige Zeile aus Textdatei lesen

[flomei]

Hallo!
Für nen kleines Programm zwischendurch wollte ich gerne eine zufällige Zeile aus einer Textdatei auslesen.
Ich hab die Datei so geöffnet:

Delphi-Quellcode:

AssignFile(m_namen, ParamStr(1)+'m.txt');
    {$I-}
      Reset(m_namen);
    {$I+}
    if
      IOResult <> 0
    then
      begin
        MessageDlg('Ein Fehler ist aufgetreten!'+#10#13
                  +'Vielleicht fehlt die Datei: m.txt ?!?', mtWarning, [mbOK], 0)
      end;

Nun möchte ich gerne in einer OnClick Prozedur eine zufällig ausgewählte Zeile aus dieser Datei auslesen...
Bisher bin ich soweit:

Delphi-Quellcode:

procedure TMain_Form.Btn_GenerateNameClick(Sender: TObject);
  begin
    if
      RBtn_male.Checked
    then
      vorname := ReadLn(m_namen,vorname);
  end;

Ich weiss, das ist nicht viel und leider meckert er auch noch rum und erzählt mir einen von ordinalen Typen nur komm ich nicht weiter. Ich weiss nicht wie ich das hinbekomm.
Wär nett, wenn einer von euch helfen könnte...

Danke im Vorraus!

MfG Florian