[MikyVato]

Gracias por la ayuda pero no pude solucionar mi problema
intente con

Código Delphi [-]
For La:=1 to 9 do
    VecArray[La]:='';

Pero no da resultado siguen saliendo caracteres basura
Uso un Objeto TBoxList que usa TStringList, o me equivoco?
lo que hago es lo siguiente:

Código Delphi [-]
while not eof(f)do
   begin
      BlockRead(f,buf,sizeof(buf),leidos); //Leo un Bloque del Archivo y lo asigno a la Cadena buf
      LBCadena.Items.Add(buf); // Inserto la Cadena en el Objeto
   end;