Rekursiv Blanks aus String entfernen

[[TP]Hawk274]

Code:

function StrRemoveBlanks( s: string ): string;
var i: integer;
begin
  result := '';
  for i := 1 to length(s) do
    if s[i] <> ' ' then result := result + s[i];
end;

Wollte nun dafür eine rekursive Lösung schreiben, aber ich komme nicht drauf.
Habe mit Rekursion auch noch so meine Problemchen. Vielleicht könnt ihr mir mal ein wenig auf die Sprünge helfen?