ah Gracias
pues lo hice asi
Código:
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