如何在StringGrid控件中每格显示两行,且可以分别设置两行的颜色

procedure TForm1.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer; procedure TForm1.Grid1DrawCell(Sender: TObject;