Строкового рандома и не существует...
Код:
var
id: integer;
s: string;
begin
s := ''; // Инициализация строки
Randomize; // Перемешиваем...
id := Random (2); // генерируем число от 0 до 2
case id of
0: s := 'text 1';
1: s := 'text 2';
2: s := 'text 3';
end;
// Используем s...
end; |