Ayuda con ListBox Urgente ...

[roman]

Bueno, bueno, Ricomarz, haz caso de lo que dice dec. Es que aquí estamos entre amigos y los amigos no se piden las cosas unos a otros con urgencia.

Lo que preguntas puedes resolverlo así

Código Delphi [-]
var
  Campos: TStringList;
  I: Integer;

begin
  Campos := TStringList.Create;

  try
    for I := 0 to ListBox.Items.Count - 1 do
    begin
      Campos.CommaText := ListBox.Items[i];

      Table.Edit;
      Table['matricula'] := Campos[0];
      Table['digito'] := Campos[1];
      Table['importe'] := Campos[2];
      Table['folio'] := Campos[3];
      Table['fecha'] := Campos[4];
      Table['estatus'] := Campos[5];
      Table.Post;
    end;
  finally
    Campos.Free;
  end;
end;

Es decir, cada elemento en tu ListBox lo asignas a la propiedad CommaText de un TStringList. Un TStringList es una lista de cadenas (igual que ListBox.Items); al asignar a su propiedad CommaText, el texto se desglosa por espacios y comas y cada término se pone en un item. Es decir, una cadena como "304358 5684 2541.10 645 2007-06-15 0" la convierte en una lista

304358
5684
2541.10
645
2007-06-15
0

de manera que puedes aceder a cada elemento por separado y asignarlos a tu tabla.

// Saludos