D3DXCreateEffectFromFile(pD3DDevice,'simple.vsh', nil, nil, 0, nil,
    pEffect, nil);
pEffect.SetTechnique('Transform');

// Структура объявления вершин
decl[0].Stream:=0;
decl[0].Offset:=0;
decl[0]._Type:=D3DDECLTYPE_FLOAT3;
decl[0].Method:=D3DDECLMETHOD_DEFAULT;
decl[0].Usage:=D3DDECLUSAGE_POSITION;
decl[0].UsageIndex:=0;

decl[1]:=D3DDECL_END;

// Создаем объявление вершин
pD3DDevice.CreateVertexDeclaration(@decl, VertDecl);

// Создаем переменную матрицы проекции
Aspect := 800 / 600;
D3DXMatrixPerspectiveFovLH(&matProjection, D3DX_PI/4.0,
         Aspect, 0.1, 1000.0);

D3DXMatrixMultiply(Full, World, View);
D3DXMatrixMultiply(Full, Full, matProjection);

// Устанавливаем переменные шейдера
pEffect.SetValue('TimeFactor', @ViewAngle, D3DX_DEFAULT);
pEffect.SetValue('mat', @Full, D3DX_DEFAULT);

// Указываем шейдеру формат вершин
pD3DDevice.SetVertexDeclaration(VertDecl);

// Отображаем объект с использованием шейдера
pEffect._Begin(@uPass, 0);
for i:=0 to uPass-1 do
 begin
  pEffect.BeginPass(i);
    for iGrassNum:=0 to NUM_GRASS-1 do
      begin
        pD3DDevice.SetTexture( 0, GrassTextures[m_Grass[iGrassNum].dwGrassTexture] );
        pD3DDevice.DrawPrimitive(D3DPT_TRIANGLESTRIP, m_Grass[iGrassNum].dwOffset, 2);
      end;
  pEffect.EndPass;
 end;
pEffect._End();

struct VS_OUTPUT
{
   float4 pos  : POSITION;
};

float4x4 mat : WORLDVIEWPROJECTION;
float TimeFactor = 1.0f;

VS_OUTPUT ShaderFunc(float4 Pos : POSITION)
{
   VS_OUTPUT Out = (VS_OUTPUT)0;

   Pos.y += sin(Pos+TimeFactor);
   Out.pos = mul(Pos, mat);

   return Out;
}

technique Transform
{
   pass P0
   {
       VertexShader = compile vs_1_1 ShaderFunc();
   }
}

pD3DDevice.DrawPrimitive(D3DPT_TRIANGLESTRIP, m_Grass[iGrassNum].dwOffset, 2);