[ViNT]

Можно так:

//Заменить 1-ю "t" в строке на "d"
buf:=setchar(buf,'d',pos(buf,'t'));

//Заменить все "t" на "d"
for i:= 0 to length(buf)-1 do
if getchar(buf,i)='t' then buf:=setchar(buf,'d',i);