[BoRoV]

Как-то так:

Код:

var
  Anekdot: array of string;
...
Randomize;
Memo1.Text := Anekdot[Random(High(Anekdot))];