Fórum Label em negrito usando API #279642

Oi, pessoal, estou usando um label e gostaria de saber como faço para deixá-lo em negrito (usando somente a API).

Um pequeno trecho do meu código:

var
Label1: integer;
Fonte: integer;

//--- Criando o Label Status
Label1 := CreateWindow(´Static´, ´Status: ´, WS_VISIBLE + WS_CHILD,
7,32, // Coordenadas Left e Top
100,13, // Dimensões width e height
Handle,
0,
Instancia,
nil);


SendMessage(Label1, WM_SETFONT, Fonte, 0);

Repetindo a minha dúvida: Como faço para deixar a string ´Status´ (exemplo acima) em negrito, usando a API.