Programmierung eines Namengenerators - need help

[Crash-Override]

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)

[Jesus_666]

Ungetestet, da ich Delphi nicht installiert habe (wie auch unter Linux;))

...

Ich sehe da kein Problem.

[Crash-Override]

Ich sehe da kein Problem.

...

Ja, allerdinsg sind die verwendeten Graphischen Bibliotheken dennoch verschieden. CLX ist die Linux-Version, kann man zwar auch unter Windows verwenden, ist allerdings nicht standard. Unter Ubuntu hab ich Kylix noch nicht installiert, doch weiß ich noch von Fedora das es sich immer beim Ausführen des Programms aus der IDE herruas aufgehängt hat. Hat jemand da genauerer Infos?

Edit: Ach ja, achte darauf das du vor random ein randomize aufruft. Das mischt den Zufallspointer noch mal ordenlich durch, andernfalls sit es nämich kein wirklicher Zufall.