procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.AddObject('Červený řádek', Pointer(clRed));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.AddObject('Zelený řádek', Pointer(clGreen));
end;