2 mistakes/erros

1¬? -> add a NextFrame:= GetTickCount; at FormCreate or D3DINIT

2¬? -> move Inc(FPSCount); to inside the render code =)

see the working code here http://pastebin.com/m789fe2eb