Stringreplace - Nur letzten Buchstaben ersetzen?

[Darko]

Hättest du ein Beispiel?

Ich habe es gerade mal mit der Funktion Pos versucht aber bringt kein Ergebnis:

Delphi-Quellcode:

function Kuerzen(const s:String): String;
begin
  Result:=StringReplace(s,'=',',',[rfReplaceAll]);
  if Pos(',', Result)=Length(Result) then
    Result:=StringReplace(Result,'=',',',[]);
end;