importar txt para paradox

estou tentando importar registros de um arquivo texto para tabela paradox, desenvolvi um teste mas nao esta ok, pois esta importando somente um registro, por favor qual o procedimento correto para importar todos os registros do tipo campo fixo

att
Emerson Mattos
segue a unit do projeto



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
DBEdit1: TDBEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
txt:TextFile;
Linha:string;
begin
AssignFile(Txt,´c:\Cliente.TXT´);
Reset(Txt);
While not EoLn(Txt) do
ReadLn(txt,Linha);
datamodule2.Table1.Insert;

datamodule2.Table1codigo.Value:=copy(linha,01,06); //
datamodule2.Table1Nome.Value:=copy(linha,07,40);
//datamodule2.Table1nome.value:=StrtoFloat(copy(linha,01,7));
datamodule2.Table1.Post;
end;
//close file (´c:\Cliente.TXT´);
//end;



end.