Rotina de importação URGENTE!

Importar o que e prá onde?

Explique melhor.

Tenho uma tabela de preços e quero fazer a importação dos dados atualizados para ela... o arquivo é em .txt

Exemplo para fazer a conversão de arquivo .TXT para DB.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
TXT :TextFile;
Entrada :String;
Begin
AssignFile(TXT,´SeuArquivo.TXT´);
Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;
Table1Codigo.Value:= Copy(Entrada,01,05);
Table1Nome.Value:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;