[troyan32]

Хочу написать программу, которая по нажатию на кнопку выводила анекдот.
Вопрос как сделать, чтобы по нажатию на одну и туже кнопку анекдоты выводились в случайном порядке, то есть нажали один анекдот, нажали другой?

[BoRoV]

Как-то так:

Код:

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

[troyan32]

Я хочу, чтобы в отдельном окне. Что-то с showmessage или подобное.

[BoRoV]

Ну дык, ты хотел просто увидеть как случайным образом выводить, я тебе показал как случайно выбирать, а куда выводить результат, то уже твое дело.

[deltas]

Сообщение от troyan32

Я хочу, чтобы в отдельном окне. Что-то с showmessage или подобное.

Делал когда-то подобное. Только showmessage раздражает пользователя. Я сделал "мягкое" появление хинта по таймеру из панели возле часиков.