... procedure TForm1.FormCreate(Sender: TObject); begin Table1.DatabaseName:=''; Table1.TableName:='country.db'; Table1.Open; end; ...