Ну можно спомщью IdHTTP.Get() отправить запрос на 'http://bash.org.ru/forweb/' и получить цитату+всякий бред, распарсить ее и вывести в Memo но здесь действует 10 сек лимит
Как вариант можно отправлять запрос на 'http://bash.org.ru/quote/'+IntToStr(Index), где Index это номер цитаты (сейчас он от 1 до 409301) выбрасываешь простым рандомом, получаешь страницу, парсишь ее и выводишь нудное опять же в memo
|