Нашел в книге (DIRECTX Графика в проектах Delphi - Михаил Краснов) предлагаемую функцию? (см.ниже)
Но она естественно вызывает исключение и на экран выходит некрасивая ошибка типа не найдена иочка входа в процедуру.....
Как можно сделать красиво?
Может быть через реестр?

Function TVideoScanForm.FindDirectX:Boolean;
var
FDD : IDirectDraw7;
hRet : HRESULT;
begin

FDD := nil;
try
try

hRet := DirectDrawCreateEx (nil, FDD, IDirectDraw7, nil);
if Failed (hRet)
then
Begin

Result:=False;
End
else Result:= True;//ShowMessage ('DirectX 7-é âåðñèè äîñòóïåí');
finally
if Assigned (FDD) then FDD := nil;
end;
except

Result:=False;
end;
end;