var
MsWord: Variant;
regData : TRegistry;
cls_WordObject: string;
begin
cls_WordObject := 'Word.Application';
try
regData := TRegistry.Create;
regData.RootKey := HKEY_CLASSES_ROOT;
if regData.OpenKey('\Word.Application\CurVer', False) then
begin
cls_WordObject := regData.ReadString('');
regData.CloseKey;
end;
finally
regData.Free;
end;

try
MsWord := CreateOleObject(cls_WordObject);
MsWord.Visible:=False;
except
Error('Невозможно запустить Microsoft Word: '+cls_WordObject);
end;
end;

выглядит красиво, а не работает. вернее не везде.
под win98 нормально, 2К и ХР - через один.
говорит - 'Невозможно запустить Microsoft Word: '.