а по теме, береш сайт с анекдотами, у него должен быть rss канал, ну вот и парсишь его на новые анекдоты, потом выводишь в прогу, все просто когда хочешь делать.
что бы парсить анекоды береш класс для этого подключиш в uses его дальше сам поймешь
вот сам класс: http://forum.codingworld.ru/showthread.php?p=71#post71
там же есть примеры.

s:=содержимое html кода страницы
к примеру качаешь код сраницы.
потом к примеру так
берем функцию
function Pars(T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos(T_, ForS);
if a = 0 then
Exit
else
a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;

и юзаем
var
punkt:string;
begin
punkt:= pars('в какой тег заключен пункт списка',s,'то же самое как закрывается тег');
While punkt<>'' do begin
Form1.spisokantkdotov.lines.add('punkt');
StringReplace(s,''в какой тег заключен пункт списка'+punkt+'то же самое как закрывается тег','',[rfreplaceall]);
end;
end;

p.s. писал код без делфи, могут быть ошибки.

http://multi-up.com/310021
отделать не чего, написал такую программку) пиздит анекдоты с сайта
что примечательно, то что она удаляет теги даже те которые я не заложил в программу) всмысле она их по другому методу удаляеет
грабит анекдот в потоке

сорцы и полная статья что да как тут: http://forum.codingworld.ru/showthread.php?p=211#post211