delphi与数据库连接

uses
  Data.DB, Data.Win.ADODB, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait,
  FireDAC.Comp.Client;

procedure TForm1.ConnectToDatabase;
var
  FDConnection: TFDConnection;
begin
  FDConnection := TFDConnection.Create(nil);
  try
    FDConnection.DriverName := 'MySQL';
    FDConnection.Params.Add('Server=localhost');
    FDConnection.Params.Add('Database=mydatabase');
    FDConnection.Params.Add('User_Name=myuser');
    FDConnection.Params.Add('Password=mypassword');
    FDConnection.Connected := True;
    ShowMessage('Connected to database successfully!');
  except
    on E: Exception do
      ShowMessage('Failed to connect to database: ' + E.Message);
  end;
end;