Hola de nuevo.
El procedimiento que te puse funciona correctamente para la petición que hiciste en el primer mensaje quitando los símbolos < y > y almacenando en dos variables las dos cadenas que están separadas por un espacio.
En el ejemplo de llamada apareció un ' ' y no '<hola> <mundo>' por un problema que provocan los símbolos '< >' dentro de las etiquetas [delphi] y [/delphi] . Si ponés el texto dentro de las comillas simples, funcionará.
Te pongo otro ejemplo con una tercera variable que supuestamente tendría almacenada la cadena leida del archivo de texto:
Código Delphi
[-]
...
var
Cad1,Cad2, Txt: string;
...
begin
Txt:= 'menor_hola_mayor menor_mundo_mayor'; QuitarMayorMenor(Txt , Cad1, Cad2);
ShowMessage(Cad1 + #10#13 + Cad2);
end;
...
El procedimiento sigue siendo el mismo.
Un saludo.