abrir table num formulario / tempo de execuçao c/ opendialog

- to com um problema em mandar abrir uma tabela(paradox) no formulário(EM) em tempo de execussao, tipo se abre um documento do word.
- quero fazer isso com o ´opendialog´, mas to perdido....
se alguem puder clarear esse código abaixo, fico grato
abraços galera...


---------------------------***-------------------------------
procedure TPrincipal.Btn_EMClick(Sender: TObject);
var
dir : String;
begin
Dir := DM.Tbl_Dir_Padrao.FieldByname(´Diretorio Padrao´).AsString;
// cria um novo banco
if RB3.Checked=true then
Criar_Banco.ShowModal
else
// abre a tabela no formulário (EM) para edição
if RB4.Checked=true then
begin

if OpenDialog1.Execute then
OpenDialog1.FileName := Dir;
with DM.Tbl_EM do
begin
DM.Tbl_EM.Active := False;
DM.Tbl_EM.DatabaseName := Opendialog1.FileName;
//DM.Tbl_EM.FindNearest([Opendialog1.FileName]);
//DM.Tbl_EM.TableName := DM.Tbl_tableName.FieldByName(´Dir´).AsString;
DM.Tbl_EM.Active := true;
EM.ShowModal;
end;
end;

end;