Hola de nuevo.
Como para abrir el abanico, esta es otra solución
Código Delphi
[-]
var
Cad, Res: string;
begin
Cad:= '20130-8563-675';
Res:= Copy(Cad,1,Pos('675',Cad)-2);
end;
Pero es mucho mejor la solución de
ContraVeneno, por que del otro modo ya tenés que usar dos funciones: una para obtener el primero y otra para obtener el último...
Y si mañana se te presenta tener que obtener el tercer grupo de : '13412-707-1307-00893-32', vas a tener que usar una tercera... o cuarta.
Usando la solución con TStringList, podés obtener cualquier grupo de dígitos con sólo especificar el string y el delimitador y luego concatenás lo que quieras.
Para este caso:
Código Delphi
[-]
Re:= ts[0] + '-' + ts[1];
Saludos.