Fill and Stroke FMX Delphi