Componte Gauge

Amigos qual o procedimento para demonstrar um processo de importação de arquivo texto para paradox utilizando o Gauge
componente que esta na guia saples do Delphi 7
segue o projeto teste abaixo:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
txt:TextFile;
Linha:string;
cont : integer;
begin
AssignFile(Txt,edit1.Text);
Reset(Txt); //abre o arquivo para leitura
cont := 0;
gauge1.MinValue := 0;
While not Eof(Txt) do
begin
ReadLn(txt,Linha);
cont := cont + 1;
gauge1.MaxValue := cont;
end;
begin
AssignFile(Txt,edit1.Text);
Reset(Txt); //abre o arquivo para leitura
While not Eof(Txt) do
begin
ReadLn(txt,Linha);
gauge1.Progress :=
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;
// Memo1.Lines.Add(Linha); // Adiciona os dados no MEMO, caso queira usar um memo.

end;
closefile(txt)
end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
Edit1.Text := opendialog1.FileName;
Edit1.SetFocus;
end;
end;

end.