【PS：写的不好，但是是原创，转载请填写出处，谢谢】 

首先：新建类库

右键类库，属性，应用程序，程序集信息，勾选使程序集COM可见（M）

在重新生成新的类库，也就是新的DLL

比如DLL为test.dll，放入C盘根目录

开始--》程序---》Microsoft Visual Studio 2005--》--Visual Studio Tools--》Visual Studio 2005 命令提示

输入regsvr32 C:/test.dll 运行，注册成功(regasm C:/test.dll /tlb:test2.tlb /codebase     如果regsvr32注册不成功，则用这个注册)

输入tlbExp C:/test.dll运行，生成到目录C:\Program Files\Microsoft Visual Studio 8\VC

复制test.tlb文件     打开Delphi，引入tlb文件  在调用  一切如浮云，成功

var
  co: Variant;
begin
  CoInitialize(nil);           //命名名间.类名
  co := CreateOleObject('test2.ClassTest');
  ShowMessage(co.ShowStr('2'));
  co := Unassigned;
  CoUninitialize;
end;