ADO Database Delphi

Title: create an Access Database (2)?
uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
AccessApp: Variant;
begin
AccessApp := CreateOleObject('Access.Application');
AccessApp.NewCurrentDatabase('c:\111.mdb');
AccessApp := Unassigned;
end;
(* see also http://www.swissdelphicenter.ch/de/showcode.php?id=1695 *)