Hola.
¿ Probaste la sugerencia que hace
gerardus (mensaje #4) en el enlace que te indicó
Casimiro ? te tiene que funcionar perfectamente.
Un ejemplo con los datos de tu mensaje:
Código Delphi
[-]
...
var
s : string;
begin
s := 'Nro;Tipo Doc;Tipo Compra;RUT Proveedor;Razon Social;Folio;Fecha Docto'+
'1;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290322;31/07/2018;31/07/2018 16:04:39;01/08/2018 14:59:03'+
'2;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290324;31/07/2018;31/07/2018 16:07:42;01/08/2018 15:00:31'+
'3;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290335;31/07/2018;31/07/2018 16:23:38;01/08/2018 15:00:31'+
'4;33;Del Giro;79898540-K;TURISMO LATRACH LIMITADA;40749;30/07/2018;31/07/2018 16:23:32;01/08/2018 15:00:31'+
'5;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290339;31/07/2018;31/07/2018 16:29:44;01/08/2018 14:59:04';
ExtractStrings([';'], [], PChar(s), ListBox1.Items);
end;
Saludos
