Pintar fila de Listview

[LuKa$]

Hola,en un boton tengo el siguiente código :

Código Delphi [-]
  
procedure TForm1.Button2Click(Sender: TObject);
for i := 0 to ListView1.Items.Count - 1 do
  begin
    if ListView1.Items[i].Subitems[0] = Edit1.Text then // Comparo si son iguales 
    begin
      ListView1.color =clRed; ????      // --> Pinto la linea del listview de la fila encontrada    
    end;
  end;
end;

mi duda es como puedo pintar la fila encontrada.

Gracias.