کد برداشتن space از وسط رشته در دلفی

Edit1.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll]);