Down

Jeg har en kode til Bold, Italic og underline til en tekst editor, som ser sådan her ud:

procedure TMainForm.BoldButtonClick(Sender: TObject);
begin
  if BoldButton.Down then
    CurrText.Style := CurrText.Style + [fsBold]
  else
    CurrText.Style := CurrText.Style - [fsBold];
end;

Men den kommer med en fejl :( Den siger dette:

[Error] Unit1.pas(325): Undeclared identifier: 'Down'

Hvad skal jeg gøre for at få det til at virke????????

Mvh
fun22