delphi xe8的listbox如何改变输入颜色呢

[绍兴老鼠]

delphi xe8下多平台操作的时候listbox里面没有普通的ondraw这个事件，vcl里面可以在这个事件里面改变颜色然后用drawtext方法操作。那我想在移动平台里面给listbox添加字符串的时候如何随时改变颜色呢？有知道的师傅请帮帮忙哦

procedure TForm1.ListBox1Paint(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
begin

end;

procedure TForm1.ListBox1Painting(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
begin

end;