function SubstituiStr (S,Localizar,Substituir : string) : string;
var
   Retorno: String;
   Posicao: Integer;
begin
   Retorno := S;
   //Obtendo a posição inicial da substring Localizar na string Localizar.
   Posicao := Pos (Localizar, Retorno);
   if Posicao <> 0 then // Verificando se a substring Localizar existe.
   begin
      // Excluindo a Localizar.
      Delete(Retorno, Posicao, Length (Localizar));
      // Inserindo a string do parâmetro Substituir
      Insert(Substituir, Retorno , Posicao);
   end;
Result := Retorno;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := SubstituiStr (Edit1.Text, Edit2.Text, Edit3.Text);
end;

Substitui miSAel por miCAel

Resultado: