[NumLock]

TMainMenu+TOpenDialog

Код:

procedure TForm1.MainMenuOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Table1.TableName:=OpenDialog1.FileName;
    Table1.Open;
  end;
end;