[lmikle]

Как-то так:

Код:

function ReplaceCenterWords(S : String) : String;
var
  L : TStrinList;
  I : Integer;
begin
  Result := S;
  L := TStringList.Create;
  L.Text := StringReplace(S,' ',#13#10,[rfReplaceAll]);
  If L.Count mod 2 = 0 Then
    Begin
       L.Exchange((L.Count div 2)-1,(L.Count div 2));
       Result := StringReplace(L.Text,#13#10,' ',[rfReplaceAll]);
    End;
  L.Free;
end;

Код не проверял.