Fórum O Que há de errado no código??? #38897

Bem, coloquei em numa aplicação teste uma tabela lingada ao Paradox 7(TbAntigo). Coloquei um query ligada a uma database do interbase.
A Intenção é pegar todas os dados da tabela em paradox e colocar na tabela interbase. O banco e as tabelas IB há estão criadas.


procedure TFrmPrincipal.Button2Click(Sender: TObject);
begin
Button2.Enabled := False;
TbAntigo.Open; //Tabela Antiga
TbAntigo.First;
QryVeiculos.Open;
While not TbAntigo.Eof do begin
QryVeiculos.Append;
QryVeiculos.FieldByName(´Codigo´).Value := TbAntigoCodigo.Value;
QryVeiculos.FieldByName(´Descricao´).Value := TbAntigoDescricao.Value;
QryVeiculos.Post;
QryVeiculos.ApplyUpdates;
Transacao.Commit;
TbAntigo.Next;
end;

//Fecha
TbAntigo.Close;
QryVeiculos.Close;
Button2.Enabled := True;
end;