Como ligo o Delphi ao MSDE?

unit Unit2;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure ADOConnection1BeforeConnect(Sender: TObject);
  private
    { Private declarations }
    procedure Desconecta;
    procedure Conecta;
    procedure SetStringConexao;
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

uses
  Dialogs;

procedure TDataModule2.Conecta;
begin
  Desconecta;
  ADOConnection1.LoginPrompt := False;
  try
    ADOConnection1.Connected := True;
    ShowMessage(´Conectou com sucesso.´);
  except
    on E: Exception do
    begin
      MessageDlg(´Erro ao tentar conectar a base de dados. Detalhes:´ + #1310 +
        e.message, mtError, [mbOk], 0);
    end;
  end;
end;

procedure TDataModule2.Desconecta;
begin
  ADOConnection1.Connected := False;
end;

procedure TDataModule2.SetStringConexao;
var
  StringConexao: string;
  NomeServidor, NomeBaseDados, Usuario, Senha: string;
begin
  NomeServidor := ´.´; //nome do seu servidor
  NomeBaseDados := ´master´; //nome da sua base de dados
  Usuario := ´sa´; //usuario da sua base de dados
  Senha := ´xxx´; //senha do usuario

  StringConexao :=
    ´Provider=sqloledb;´ +
    ´Data Source=´ + NomeServidor + ´;´+
    ´Initial Catalog=´ + NomeBaseDados + ´;´+
    ´User Id=´ + Usuario + ´;´ +
    ´Password=´ + Senha;

  ADOConnection1.ConnectionString := StringConexao;
end;

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
  Conecta;
end;

procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
  Desconecta;
end;

procedure TDataModule2.ADOConnection1BeforeConnect(Sender: TObject);
begin
  SetStringConexao;
end;

end.