Flere samtidige StringReplace's

Hej,

Jeg har pt. en funktion som ser således ud:

function TForm1.GrammarCheck(f: string) : string;
begin
  Result := StringReplace(f,
  ' hej ', ' Hej ', [rfReplaceAll, rfIgnoreCase]);
end;

og som jeg kalder således:

Edit1.Text:=GrammarCheck(Edit1.Text);


Problemet med funktionen er, at den kun kan lave 1 stk. StringReplace, og jeg ønsker netop at foretaget flere forskellige tekstudskiftninger på samme tid. De skal alle foretages med et enkelt kald på GrammarCheck.

Hvordan gør jeg dette?