delete ,insert funktionieren nicht richtig

[Versus]

wort:String;
begin
wort:=edit1.Text;
delete(wort,3,1);
insert('ae',wort,3);
end;

Am Anfang hatte ich vor einen bestimmten Character zu suchen und diesen dann zu ersetzten dies klappte jedoch nicht deswegen begab ich mich auf Fehlersuche und löschte immer mehr bis ich nun zu den delte und insert Funktionen kam. Als ich dann versuchte das Programm auszuführen sollte in dem feld edit 1, der 3 Buchstabe gelöscht werden und dann an der stelle ein ae erscheinen. Das klappt jedoch nicht und ich frag mich jetzt wo der Fehler liegt...