MS SQL adatbázis kezelés Delphi-ből

  IDServer = interface(IAppServer)
    ['{5BDD13D7-A4EB-11D4-910D-00105A863DF2}']
    function  GetTitles: OleVariant; safecall;
    function  ApplyTitleUpdates(Delta: OleVariant): OleVariant; safecall;
  end;

function TDServer.GetTitles: OleVariant;
begin
  Result := Provider1.Data
end;

function TDServer.ApplyTitleUpdates(Delta: OleVariant): OleVariant;
var
  ErrorCount: integer;
begin
  Result := Provider1.ApplyUpdates(Delta, 0, ErrorCount);
end;

  TDataModule1 = class(TDataModule)
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
  private
    { Private declarations }
    FComputerName: string;
    function GetDServer: IDServer;
  public
    { Public declarations }
    property ComputerName: string read FComputerName write FComputerName;
    property DServer: IDServer read GetDServer;
  end;

function TDataModule1.GetDServer: IDServer;
begin
  Result := CoDServer.CreateRemote(FComputerName);
end;

procedure TDataModule1.aRefreshExecute(Sender: TObject);
begin
  ClientDataSet1.Data := DServer.GetTitles;
end;

procedure TfMain2.eCompNameChange(Sender: TObject);
begin
  DataModule1.ComputerName := (Sender as TEdit).Text;
end;