direi che manca la uses crt

aggiungila così:

codice:
USES wincrt, crt; { wincrt non so che è }
Inoltre d non la vedo dichiarata.