Delphi - Ayuda programa para remplazar letras

Hola a todos necesito ayuda para hacer un programa que pueda reemplazar las letras por otras ya asignadas. por mi

Supongo que eso debe ser de lo mas simple pero no consigo hacerlo.

Espero que algunos de los que saben mas de delphi me puedan ayudar y me pongan algun ejemplo.

Gracias.

No estoy seguro de lo que quieres, pero el siguiente codigo cambia en un string
unas letras por otras.

var
s: string;
i: integer;
begin
s:= 'Hola mundo'; // s contiene el texto 'hola mundo'
for i:= 1 to length(s) do
case s[i] of
'o': s[i]:= 'e'; // cambia la o por la e
'a': s[i]:= 'i'; // cambia la a por la i
'H': s[i]:= 'h' // cambia la H mayuscula por la h minuscula
end;
// ahora s contiene el texto 'heli munde'
end;

Basicamente es eso si gracias , pero ahora tengo otro problema intento sacar el valor de 's' en un memo pero me dice que es incompatible tstrings y string .

Sabes como puedo solucionarlo para ver el valor de 's' en un memo ?

Gracias de nuevo.

Hola de nuevo solo era para decir que no hace falta que me contestes al mensaje anterior del memo ya que es una tonteria y ya lo he solucionado.

Hace mucho que no utilizaba el delphi y se me habian olvidado algunas cosillas que son basicas :) .

Un saludo

Esta bastante bien el truco pero tengo una duda lo he probado y funciona bien pero intento cambiar letras por palabras por ejemplo 'a' por AA y me da error de incompatibilidades entre string y char como puedo hacer que me cambien letras por palabras sin alterar mucho ese codigo?

var
s,resultado: string;
i: integer;
begin
s:= 'texto ha modificar';

Resultado:='';
for i:=1 to length(s) do
case s[i] of
'o': ; // elimina la letra 'o'
'a': Resultado:= Resultado + 'b'; // cambia la letra 'a' por 'b'
'h': Resultado:= Resultado + 'hola'; // cambia la letra 'h' por 'bola'
else Resultado:= Resultado + s[i]; // Las demas letras no las cambia
end;

// El resultado es 'text holab mdificbr'
showmessage(resultado); // Solo para ver el resultado
end;

Funciona perfectamente.

Gracias.