Код:
procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Lines.Text:=idhttp1.Get('http://www.anekdot.ru/scripts/rand_anekdot.php?t=&rank=4&lim=1');
end;
хм, вроде все работает... Но если Вы хотите выдрать только текст анекдота, тогда иначе... Дать код?