Нерабочий код Делфи.

[DSBM]

Привет, форумчане!
При нажатой кнопке SpeedButton должно очищаться окошко ListBox. При отжатой выполняется определённое условие.
Код не работает, помогите исправить?

procedure TForm1.Button1Click(Sender: TObject);
begin
if (SpeedButton1.Down:=True) then begin
ListBox1.Items.Clear;
ListBox1.Items.Add(IntToStr(Random(4)+1));
ListBox2.Items.Clear;
ListBox2.Items.Add(IntToStr(Random(6)+1));

StringGrid1.Cells[StrToInt(listbox1.Items.Strings[listbox1.Count-1])-1,StrToInt(listbox2.Items.Strings[listbox2.Count-1])-1]:=
IntToStr(StrToInt(listbox1.Items.Strings[listbox1.Count-1])+StrToInt(listbox2.Items.Strings[listbox2.Count-1]));
end else begin
 ListBox2.Items.Clear;
end;
end;

P.S.: Ошибка, вроде, при объявлении условия. Уверен, что задал неправильно.

[ZuBy]

if (SpeedButton1.Down) then begin