[DELPHI] Separar palabras

procedure SepararPalabras(Largo: Integer; var Palabra: String);
var
   cTemp: String;
   nIdx, SumaLargo, LargoActual: Integer;
begin
   //Verifica que la palabra sea mayor que la cantidad por linea
   if Length(Palabra) > Largo then
   begin
      cTemp := '';
      SumaLargo := 0;
      //Recorre la palabra para ir diviendola
      while SumaLargo < Length(Palabra) do
 
      begin
         //Verifica si el caracter actual es espacio
         if (Copy(Palabra, SumaLargo + Largo, 1) = ' ') then //Actual
            //toma el largo donde debe ir
            LargoActual := Largo
         else
         begin
            //Calcula el proximo espacio
            if Pos(' ', Copy(Palabra, SumaLargo + Largo, Length(Palabra))) > 0 then
               //Si hay un espacio
               LargoActual :=  Largo + Pos(' ', Copy(Palabra, SumaLargo + Largo, Length(Palabra))) - 1
            else
               //Llega al final de la palabra
               LargoActual := Length(Palabra) - SumaLargo + 1;
         end;
         //Divide la palabra un LARGO a la vez
         cTemp := cTemp + Trim(Copy(Palabra, (SumaLargo), LargoActual));
         //Acumula los largos
         SumaLargo := SumaLargo + LargoActual;
 
         //Agrega el salto de linea
         cTemp := cTemp + #13#10;
      end;
      //Devuelve la palabra completa
      Palabra := cTemp;
   end; //Verifica que la palabra sea mayor que la cantidad por linea
   
 
end;

function SepararPalabras(S: string; Len: integer): string;
var
  i, f: integer;
begin
  i:= 1;
  f:= i;
  if Len > Length(S) then Len:= Length(S);
  while i<= Length(S) do
  begin
    while (f-i < Len) or  (S[f] <> ' ') do inc(f);
    Result:= Result + Trim(Copy(S, i, f-i)) + #13+#10;
    i:=f+1;
  end;
end;