буфер обмена и RichEdit

var
  Gde: string;                                     //где заменяем
  Kuda  : string;                                 //куда пишем результат
begin
for i:=1 to length(Gde) do
if Gde := 'p' Then begin                    //смотрим символ - p или нет
Kuda := Kuda+'a';                              //если p, то заменяем на a
end else                                 //иначе просто добавляем символ к строке
Kuda := Kuda+Gde;