Hola.
La función
ExtractStrings, delimita el texto correctamente.
Ejemplo:
Código Delphi
[-]
var
st: string;
begin
st:='0000000002|002268176A|05/09/2011|225|18|1820002400||19|1|||||||||SALDAÑA|LUEVANO|SANDRA LUZ|OBREGON|439 |0 |TABASCO|PORTES GIL|BEIS|63200||CERCA DEL KINDER|18|18|1||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||1|1|1|24|07:15|19||20324 739|SI';
ExtractStrings(['|'], [' '], PChar(st), StringGrid1.Rows[0]);
end;
Pero no sé si Delphi 6 la incluye. De no estar, revisá este
hilo, donde hay maneras alternativas de realizarlo.
Un saludo.