[fpc-pascal] Error: Identifier not found "ChooseFont"

[yu ping]

When I try to use ChooseFont function in my programm,I get following error:
test.pas(37,35) Error: Identifier not found "ChooseFont"

Isn't the function in windows unit?