[fpc-pascal]API Windows Create Font

[Luis Del Aguila]

I write the next code in my program,

dc:=GetDc(Ventana);
Settextcolor(dc,rgb(0,0,0));
hf1:=CreateFont(20,0,0,0,fw_normal,0 ,0,0,ansi_charset,
                            out_default_precis,clip_default_precis,
                            default_quality,default_pitch or ff_dontcare,
                            'Courier New');
selectObject(dc,hf1);
textout(dc,1,1,'Courier',7);
releasedc(ventana,dc);

but I get this error message :

Free Pascal Compiler version 1.0.4 [2000/12/30] for i386
Copyright (c) 1993-2000 by Florian Klaempfl
Target OS: Win32 for i386
Compiling
c:\docume~1\admini~1\misdoc~1\inve\pascal\pruebas\eid\editor\cfont.pp
cfont.pp(20,10) Error: Identifier not found CREATEFONT
cfont.pp(93,4) Fatal: There were 1 errors compiling module, stopping

I use the unit Windows.
Why don't FPC 1.0.4 found the CreateFont Function?.

Att.
Luis Del Aguila