Set form property like Form1.Quality:= HighQuality can turn on anti-aliasing , the result UI will like this:
In some situation , this may now work properly , we need to add more code on Form Event :
onCreate :
preocdure TForm1.onCreate(Sendor: TObject);
begin
Form1.RecreateCanvas;
Form1.Invalidate;
end;