Schriftfarbe einer Zeile in der Listbox ändern?

[Chris1986]

Ich weiß, das ich nerve, aber eins muss ich noch wissen.

Wie mach ich das denn?
Also, lade ich erst alle IP's in die Listbox & arbeite sie dann ab, oder mache ich das so:

lstbErgebnis.items.add ('Es ist eigentlich egal was hier steht')

Delphi-Quellcode:

var
iReturnedBytes :integer;
status :string;

implementation
procedure TLanPing.lstbErgebnisDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
pingIP //diese Prozedur wird aufgerufen, um die IP zu pingen
//die Bytes werden in der Prozedur auf die Globale Variable iReturnedBytes gesetzt
  if iReturnedBytes<>0
    then
    begin
      lstbErgebnis.Canvas.Font.Color := clgreen;
      status := 'online';
    end
    else
    begin
      lstbErgebnis.Canvas.Font.Color := clred;
      status := 'offline';
    end;
  lstbErgebnis.Canvas.TextOut(Rect.Left,Rect.Top,lstbErgebnis.'Die IP ist '+status)
end;

Kann man das so machen?

Gruß
Christian