Cara memberi warna per baris pada RichEdit

Tutorial kali ini adalah bagaimana cara memberi warna yang berbeda pada setiap baris menggunakan richedit. perhatikan langkah-langkah berikut :
Buatlah sebuah project delphi dan tambahkan RichEdit1, Button1, Edit1, dan Label1 seperti berikut:

kemudian isikan pada bagian FormCreate dengan script berikut :

procedure TForm1.FormCreate(Sender: TObject);
begin
  richedit1.Lines.Clear;
end;

kemudian isikan pada bagian button dengan script berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if richedit1.Lines.Count mod 2=0 then
    richedit1.SelAttributes.Color:=clred
  else
    richedit1.SelAttributes.Color:=clblue;
  richedit1.Lines.Add(edit1.Text);
end;

dan hasilnya akan seperti berikut :
asda

Lihat tutorial videonya