[AGAG4]

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 [-]
//Ahora el 2do parámetro es de Tipo Byte
//ExtraeDatoDelimitador(Linea,1,',');
function ExtraeDatoDelimitador( Linea:String; Parte:byte; Delimitador:char:String;
var x,pos:byte;
    Campo1,Campo2:String;
begin
  Campo1:=''; Campo2:='';
  Pos:=0;
  //Separar Campo1
  for x:=1 to length(Linea) do 
    if Linea[x]<>Delimitador then
      Campo1:=Campo1+Linea[x]
    else begin
      Pos:=x;
      Break;
    end;

  //Separar Campo2 
  for x:=Pos+1 to length(Linea) do
    Campo2:=Campo2+Linea[x];
  if Parte=1 then
    result:=Campo1
  else
    result:=Campo2;
end;

Saludos.