Delphi-Quellcode:
Function RandomText : String;
CONST max = 10;
VAR
MyText : Array[0..max-1] of String;
Number : Byte;
begin
randomize;
// hier muss das Array mit Sprüchen gefüllt werden, das kriegst 'de hin.
//
//
//
// Und nun wird ein zufälliger Spruch dem Result übergeben
Number:= Random(max); // Intervall zwischen 0 und max-1 !
Result:= MyText[Number];
end;
Das ist nur eine von vielen Möglichkeiten. Kannst das auch mit
einem TMemo-Objekt machen. 8)