Farbige Listbox

[XXcD]

Das Problem ist ich müsste das in das OnShow ereignis reinkriegen.
Ich möchte damit anzeigen wer online oder offline ist.

Hier mal der Code:

Delphi-Quellcode:

Listbox3.Clear;
if assigned(FResult) then begin
    if FMysql.Status<>MYSQL_STATUS_READY then
      ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
      FreeAndNil(FResult);
  end;
FResult := FMysql.query('select * from users;', true, ex);
  if assigned(FResult) then
  begin
  FResult.First;
          for j:=0 to FResult.RowsCount-1 do
          begin
          if FResult.FieldValuebyname('status')='online' then
          begin
          //Hier muss die Schrift grün werden
           Listbox3.Items.Insert(0, FResult.FieldValuebyname('login'));
          end
          else
          begin
        //Hier muss die Schrift rot werden
        Listbox3.Items.add(FResult.FieldValuebyname('login'));
          end;
        FResult.Next;
      end;
  end
  else