Ab1 Item in Listbox farbe der Form ändern

[SkyLord]

Hallo.

Folgendes Problem:

Ich habe bei Delphi 5 eine Listbox. Diese enthält zu verschiedenen zeitpunkten mal 2,3,4... oder auch 0 Items. Folgendes soll passieren:
Wenn ich einen Button drücke, und in der Listbox befinden sich mehr als 0 Item dann soll sich die Farbe der Form in 'Rot' ändern.

Ich habe es bisher mit diesem Befehl veruscht:



Label18.Caption := IntToStr(ListBox2.Items.Count);

if label18.caption < '0' then begin;
form1.color := red;
end;

Dabei passiert aber gar nichts

Hat jemand Hilfe?
Danke

[Mirilin]

if ListBox.Items.Count > 0 then Color := clRed else Color := clBtnFace;

[SkyLord]

danke hat sich erledigt. Hab den Fehler selbst gefunden
danke