Hola.
Con la solución de
ContraVeneno, es sencillísimo.
Código Delphi
[-]
procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings) ;
begin
Assert(Assigned(Strings)) ;
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Input;
end;
...
var
ts: TStrings;
begin
ts:= TStringList.Create;
Split('-', '20130-8563-675', ts);
end;
Entonces tenés: '20130' en ts[0], '8563'en ts[1] y '675' en ts[2].
Saludos.