(* D I R E C T _ 3 D *)

Function Clear(const ClearColor: TD3DColor = 0): HResult;      
begin
 Result:= D3D.Clear(0, nil, D3DCLEAR_TARGET, ClearColor, 0.0, 0);
End;

......

Function No_ok(const COMHResult: HResult; var HRes: HResult): boolean;
begin
 HRes:= COMHResult;
 Result:= Failed(HRes);
End;

Function Update: HResult;
begin
 If No_ok(Clear, Result) then EXIT;    // Сокращение кода,
 If No_ok(....., Result) then EXIT;    // повышение читабельности.
 If No_ok(....., Result) then EXIT;
 .....

 {
   Раньше:
   Result:= Clear;
   If Failed(Result) then EXIT;  
   
   .....
 }
End;

Procedure Idling;                      // Цикл.
begin
 HRes:= Update;
 If Failed(HRes) then ErrorOut('Error update', HRes);    // ErrorOut - Обёртка под  MessageBox.
End;