ExtraeDatoDelimitador es una función que no esta en Delphi, tu mismo la tienes que programar, es por eso que te di el algoritmo para que lo implementes, pero aqui te doy un ejemplo para 2 campos lo puedes modificar para que sea para cualquier número de campos, para que te guies:
Código Delphi
[-]
function ExtraeDatoDelimitador( Linea:String; Parte:byte; Delimitador:char:String;
var x,pos:byte;
Campo1,Campo2:String;
begin
Campo1:=''; Campo2:='';
Pos:=0;
for x:=1 to length(Linea) do
if Linea[x]<>Delimitador then
Campo1:=Campo1+Linea[x]
else begin
Pos:=x;
Break;
end;
for x:=Pos+1 to length(Linea) do
Campo2:=Campo2+Linea[x];
if Parte=1 then
result:=Campo1
else
result:=Campo2;
end;
Saludos.