[[maeyanes]]

Hola...

Hay varias formas, una es que recorras la cadena de forma invertida y te detengas al encontrar el primer '-':

Código Delphi [-]
for I := Length(Cadena) to 1 do
begin
  if Cadena[i] = '-' then
    Exit;
  Insert(Cadena[i], Result, 1)
end

Saludos...