A better solution / algoritm

Does anyone hav a better solution for this code! It's reading data from a text file and inserting it to a table.

b:=0;
if OpenDialog1.Execute then
begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
while not eof(f1) do
begin

a:=0;
if b=0 then
begin
while a<50 do
begin
a:=a+1;
read(F1, Ch);
end;
b:=1;
end;

tableProdukter.Edit;
tableProdukter.Insert;
a:=0;
      while a<2 do
      begin
        a:=a+1;
        Read(F1, Ch);
      end;
a:=0;
      while a<7 do
      begin
        a:=a+1;
        Read(F1, Ch);
        tableProdukterProduktnummer.Text:=tableProdukterProduktnummer.Text+ch;
      end;
a:=0;
      while a<14 do
      begin
        a:=a+1;
        Read(F1, Ch);
      end;
a:=0;
      while a<35 do
      begin
        a:=a+1;
        Read(F1, Ch);
        if Ch=' ' then tableProdukterProduktnamn.Text:=tableProdukterProduktnamn.Text+Chr(160)
        else
        tableProdukterProduktnamn.Text:=tableProdukterProduktnamn.Text+ch;
      end;
a:=0;
      while a<35 do
      begin
        a:=a+1;
        Read(F1, Ch);
        if Ch=' ' then tableProdukterTillgsuppgiter.Text:=tableProdukterTillgsuppgiter.Text+Chr(160)
        else
        tableProdukterTillgsuppgiter.Text:=tableProdukterTillgsuppgiter.Text+ch;
      end;
a:=0;
      while a<141 do
      begin
        a:=a+1;
        Read(F1, Ch);
      end;
end;
CloseFile(F1);
end;

EXAMPLE OF THE TEXTFILE

OBYXXXXXXXXXXX      L01
OSE003710712079     L01
RL0101104  2SWE20020521SG-TYTON TRYCKRÖR                  DN  80                             SG-TYTON            AA002  10105 M  00150000006400000000006000000600000000000000000000000000000000000   00V                    M  000010000
RL0101105  2SWE20020521SG-TYTON TRYCKRÖR                  DN  90                             SG-TYTON            AA002  10105 M  00150000006400000000006000000600000000000000000000000000000000000   00V                    M  000010000