public void Tread_form.read_data(string param1;TCheckListBox param2 );
{
  int i,j;
  param2.Clear;
  i=pos('% REF',param1);
  j=0 ;
  while (j<480) and (pos('%',copy(param1,i+30,2))>0)
{
    param2.Items.Add(copy(param1,i+7,3)+'  '+copy(param1,i+13,5)+'  '+copy(param1,i+20,5));
    if (j<480) then inc(j) else break;
    inc(i,25);
}}
some functions,pls check yourself