Hola david, si no quieres usar ningun componente entonces usa un StringList y aplicas lo que te ha indicado tpc_ip.
Código Delphi
[-]
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.delimiter:='#';
sl.delimitedtext:='uno#dos#tres';
for i:=0 to sl.Count-1 do
showmessage(sl[i]);
Si no quieres usar un StringList entonces tendras que hacerlo con las funciones copy y pos.
Saluditos