Programmierung eines Namengenerators - need help

[Niji-chan]

Hi,
ich habe mich jetzt an einen einfachen Namensgenerator gesetzt.
Ich arbeite mit Delphi 6.
Das Formular besteht aus dem "MainMenu", 2 Labels und 2 Button.
Das MainMenu bietet die Wahl zwischen "Weiblich" und "Maennlich".
Im ersten Label soll der Vorname und im zweiten der Nachname angezeigt werden.
Der erste Button soll aus Textdateien neue Namen herausholen und in die Labels schreiben.
Der zweite Button beendet das Programm.

Mein Problem ist im Moment:
Wie hole ich die Namen aus der Textdatei?

Es gibt 3 Textdateien:
w.txt = weibliche Vornamen
m.txt = maennliche Vornamen
n.txt = Nachnamen

Beim Starten des Programms soll die Wahl des Geschlechts auf "Weiblich" stehen.

Wäre für Hilfe dankbar

EDIT:
Nun, inzwischen habe ich etwas in meinen schlauen Bücher gesucht und das meiste geschafft. Im Moment hänge ich daran fest, dass eine Abfrage nicht so ganz funktionieren möchte:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Geschlecht = 'w' then
    begin
    Nr := random(Weiblich.Count);
    Label1.Caption := Weiblich.Strings[Nr];
    end;
  if Geschlecht = 'm' then
    begin
    Nr := random(Maennlich.Count);
    Label2.Caption := Maennlich.Strings[Nr];
    end;
  Nr := random(Nachname.Count);
  Label2.Caption := Nachname.Strings[Nr];
end;

Es soll also zunächst abgefragt werden, welches Geschlecht gewählt wurde und dann die Namen generiert werden.