Yeni kayıtta renk değiştirme

[Serhat]

Merhaba;

Listview yeni bir kayıt girişi yapılınca kullanıcıya uyarı verdirmek istiyorum bunun için for döngüsü ile uğraşıyorum fakat bir türlü renkte bir değişiklik olmuyor acaba bu konuda bir önerisi olan var mı???

Kod: Tümünü seç

procedure TForm3.ListViewInsert(Sender: TObject; Item: TListItem);
var
  I, X: integer;
begin
  for i := 1 to 5 do
  begin
    satir:= -1; 
  end;
  for X := 1 to 5 do
  begin
    satir:= 1;
  end;
end;