function TRamazan.degistir(kelime,aranan,yeni:String):String;
var
sonuc:byte;
veri:string;
 begin
 veri:=kelime;
 sonuc:=pos(aranan,veri);
 while sonuc<>0 do
 begin
 delete(veri,sonuc,1);
 insert(yeni,veri,sonuc);
 sonuc:=pos(aranan,veri);
 end;
 Result:=veri;
end;