Console Application BDE

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Variants,
  Classes,
  DB,
  DBTables,
  BDE,
  Forms;

var
 tbOrigem, tbDestino: TTable;
 x: integer;

begin
 tbOrigem.Create(nil);
 tbDestino.Create(nil);
 try
  tbOrigem.DatabaseName:= ExtractFilePath(Application.ExeName)+´\ORIGEM´;
  tbOrigem.TableName:= ´ACADPED.DB´;
  tbOrigem.Open;
  tbOrigem.First;
  tbDestino.DatabaseName:= ExtractFilePath(Application.ExeName)+´\DESTINO´;
  tbDestino.TableName:= ´ACADPED.DB´;
  tbDestino.Open;
  tbDestino.EmptyTable;
  tbDestino.First;
  while not tbOrigem.Eof do
   begin
    tbDestino.Append;
    for x:= 0 to tbOrigem.FieldCount-1 do
     tbDestino.FieldByName(tbOrigem.Fields[x].FieldName).Value:= tbOrigem.Fields[x].Value;
    try
     tbDestino.Post;
    except
     tbDestino.Cancel;
    end;
    tbOrigem.Next;
    write(´*´);
   end;
  WriteLn(´Concluido!´); 
 finally
  FreeAndNil(tbOrigem);
  FreeAndNil(tbDestino);
 end;

end.