Delphi - Memo

Salve a tutti,
ho un problema con Delphi
Devo copiare da un Memo ad un altro memo ciò che scrivo con la condizione che se nel primo memo c'è scritto " ciao " nel secondo deve visualizzarsi " ciAo " cioè tutte le 'a' piccole devono trasformarsi nel secondo memo in 'A' grandi tramite un bottone...
qualche suggerimento?

ciao..

inserisci nel form un bottone (button1)
e due memo (memo1 e memo2)

poi nell'evento on click del bottone mettici:

var i,lunghezza:integer;
begin
 lunghezza:=memo1.GetTextLen;
 for i:=1 to lunghezza do
  begin
   if memo1.text[i]='a' then
    memo2.Text:=memo2.text+'A'
   else
   memo2.text:=memo2.Text+memo1.text[i];
  end;
end;

Oppure più elegantemente usa StringReplace...

delphibasics.co.uk/…

fico!!!
sai che non la conoscevo?!?!

Grazie mille per il tuo aiuto
è stato prezioso...

Grazie mille...
ma credo di non essere ancora in grado di usarlo...

beh.. a occhio e croce con il metodo linkato da piero dovrebbe venir cosi..

metti questo codice al posto di quello che ti ho dato prima

var originale, cambiato:string;
begin
 originale:=memo1.text;
 cambiato  := StringReplace(originale, 'a', 'A',[rfReplaceAll, rfIgnoreCase]);
 memo2.Text:=cambiato;
end;

però va beh... alla fine è la stessa cosa

non devo sembrare troppo brava xD
che dopo devo spiegare le cose...
cmq ora ci provo