How about:
[pascal]...
Dev.SetTextureStageState(0, D3DTSS_ALPHAOP, D3DTOP_MODULATE);
Dev.SetTextureStageState(0, D3DTSS_ALPHAARG1, D3DTA_CURRENT);
Dev.SetTextureStageState(0, D3DTSS_ALPHAARG2, D3DTA_TFACTOR);

Dev.SetTextureStageState(1, D3DTSS_COLOROP, D3DTOP_DISABLE);
Dev.SetTextureStageState(1, D3DTSS_ALPHAOP, D3DTOP_DISABLE);
[/pascal]
:?: