Code: 
var:
  Name: TStringList;
  Name2: TStringList;
Begin
  Name := TStringList.Create();
  Name2 := TStringList.Create();
  if #check_ob_männlich then
    Name.LoadFromFile('m.txt')
  else
    Name.LoadFromFile('w.txt');
  Name2.LoadFromFile('n.txt');
  randomize;
  Output.Text := Name[random(Name.Count)];
  randomize;
  Output.Text := Output.Text + ' ' + Name2[random(Name2.Count)];
End;
Ungetestet, da ich Delphi nicht installiert habe (wie auch unter Linux)