procedure TForm1.Button1Click(Sender: TObject);
Var St:string;
i:integer;
begin
St:='drlphipage';
for i:=1 to Length(St) do
if St[i]='r' then St[i]:='e'; //Remplace le 'r' par le 'e'
Label1.Caption:=St; //Affiche le résultat
end;