TRGBA
type
TRGBA =
record;
Unit
TeCanvas