[PhoeniX]

Код:

function Yandex(text:string):string;
begin
  if text='Traffic исходник Delphi' then
    Result:='http://pblog.ru/lab/?p=51';
end;