Fórum importar txt para paradox #210946

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.