Hvad gør jeg forkert (DB indlæsning af fil)

Jeg kan godt finde og åbne filen, men når jeg trykker på nedenstående knap smader jeg DB men den ligger 20 records ind


procedure TForm1.Button22Click(Sender: TObject);
begin
      If OpenDialog1.FileName = \'\' then
    Begin
      ShowMessage(\'Du skal vælge en fil !\');
      Exit;
    End
    Else
    AssignFile(Fil,Fname);
    Reset(Fil);
    while not eof(Fil) Do
    begin
      Table4.Insert;
      Table4.Fields[0].ASString := Copy(Linie,1,Pos(\';\',Linie)-1);
      Delete(Linie,1,Pos(\';\',Linie));
      Table4.Fields[1].ASString := Copy(Linie,1,Pos(\';\',Linie)-1);
      Delete(Linie,1,Pos(\';\',Linie));
      Table4.Fields[2].ASString := Copy(Linie,1,Pos(\';\',Linie)-1);
      Delete(Linie,1,Pos(\';\',Linie));
      Table4.Fields[3].ASString := Copy(Linie,1,Pos(\';\',Linie)-1);
      Delete(Linie,1,Pos(\';\',Linie));
      Table4.Fields[4].ASString := Copy(Linie,1,Pos(\';\',Linie)-1);
      Delete(Linie,1,Pos(\';\',Linie));
    End;
    Table4.active := False;
    Table4.active := True;
    ShowMessage(\'Overført til 2005!\');

end;