如何调用POS程序(100分)

我现有一POS程序，从VB中调用的语法为：
Private Sub command_Click()
Dim aaa As CMBPOSLib.svr
Set aaa = CreateObject("CMBpos.svr")
aaa.Start
'MsgBox ("ok")
Set aaa = Nothing
End Sub

现必须转到Delphi下调用，如果直接调用POS.EXE则容易出错不知各位有没有其他方法调用此POS程序。[red][/red]

需要包含 ComObj.pas文件
procedure TForm1.Button1Click(Sender: TObject);
var
aaa :variant;
begin
aaa :=CreateOleObject('CMBpos.svr');
aaa.Start;
ShowMessage('Ok');
end;

POS程序是用C++开发并打包的,并不是delphi程序.现需用DELPHI调用它