Leer un TXT e insertar en tabla de firebird

[[Caral]]

Hola
A ver:

Código Delphi [-]
procedure GetDocAsTxt(FileName, SaveTxtFileTmp: string; var TxtDoc: string);
var
  WordApp: Variant;
  vTxtFile: TextFile;
  TxtData: string;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Documents.Open(FileName);
  WordApp.ActiveDocument.SaveAs(string(SaveTxtFileTmp), 2);
  ShellExecute(Application.Handle, nil, 'tskill', 'WINWORD', nil, SW_HIDE);
  Sleep(100);
  AssignFile(vTxtFile, SaveTxtFileTmp);
  Reset(vTxtFile);
  TxtDoc := '';
  while not Eof(vTxtFile) do
    begin
      Readln(vTxtFile, TxtData);
      TxtDoc := TxtDoc + TxtData + #13#10;
    end;
  CloseFile(vTxtFile);
  DeleteFile(SaveTxtFileTmp);
end;

Uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Archivo, a: string;
  i: Integer;
  Ruta, N1, N2: String;
begin
  Ruta:= Edit3.Text;
  N1:= 'BD.Txt';
  N2:= 'BD2.Txt';
  GetDocAsTxt(Ruta+N1, Ruta+N2, Archivo);
  for i := 1 to Length(Archivo) do
  begin
    Edit1.Text:= (Archivo[i]);
    a:= a + Edit1.Text;
    Memo1.Text:= a;
    if edit1.Text = '|' then
    begin
    ShowMessage('encontre un | y guarde el dato');
    // aqui podria guardar el dato en una tabla X
    // o tambien asignar una variable string la que contendra el dato
    // y lo colocara en un dataset
    end;
    end;
end;

Saludos