[el_barto]

ah Gracias

pues lo hice asi

function TFrmCmCacot.extraerItemarchivo;
var
  coma: integer;
begin
  coma := pos(delimitador, st);
  if coma = 0 then
  begin
    result := st;
    st := '';
  end
  else
  begin
    result := copy(st, 1, coma - 1);
    st := copy(st, coma + 1, length(st));
  end;
end;

Y me funciono muy bien, les agradezco su valiosa ayuda