Abwechselnt Funktion 1 oder 2 aufrufen

[SyntaxXx]

Doofe frage, aber wenn ich es so amche wie du jetzt sagst, also so:

Delphi-Quellcode:

const Firstnames: Array[0..5918] of  string =  (
'Aabel', 'Aabid', 'Aabo', 'Aabraham', 'Aadam', 'Aadolf',
  ...);

function Rndfirstname : string; stdcall;
begin

Wie rufe ich dann einen Random Wert aus dem Array auf?