[<<D>>]

Код:

function letterexists(letter,fromstring:string;number:integer):boolean;
begin
result:=false;
if copy(fromstring,number,1)=letter then result:=true;
end;