???
Verstehe ich nicht.
Es handelt sich um ein FMX-Programm.
Den Constructor (Testversion) habe ich hier:
Delphi-Quellcode:
constructor TFarbQuadrat.Create(aOwner : TComponent);
begin
inherited Create(aOwner);
Color:= TAlphaColorRec.DarkGray;
CanFocus:=True;
Size.Width:=20+20; Size.Height:=20+20;
StyleLookup:='';
Opacity:=1;
Visible:=True;
Enabled:=True;
end;