(12-05-2021, Saat: 12:29)abdullahcetinel Adlı Kullanıcıdan Alıntı: Chart1.SeriesList.ClearValues;
     DataModule1.tblsorgu.Close;
     DataModule1.tblsorgu.SQL.Clear;
     DataModule1.tblsorgu.SQL.Add('Select Sum(Tutar) as ToplamBorc');
     DataModule1.tblsorgu.SQL.Add('From tblislem');
     DataModule1.tblsorgu.SQL.Add('Where Tipi=''Borc''');
     DataModule1.tblsorgu.Open;
     toplamborc:=DataModule1.tblsorgu.FieldByName('ToplamBorc').Value;

     Chart1.Series[0].AddY(toplamborc, 'Toplam Borç', TAlphaColorRec.Crimson);

     DataModule1.tblsorgu.Close;
     DataModule1.tblsorgu.SQL.Clear;
     DataModule1.tblsorgu.SQL.Add('Select Sum(Tutar) as ToplamOdeme');
     DataModule1.tblsorgu.SQL.Add('From tblislem');
     DataModule1.tblsorgu.SQL.Add('Where Tipi=''Odeme''');
     DataModule1.tblsorgu.Open;

     toplamodeme:=ABS(DataModule1.tblsorgu.FieldByName('ToplamOdeme').Value);

     Chart1.Series[0].AddY(toplamodeme, 'Toplam Ödeme', TAlphaColorRec.Lightgreen);

     DataModule1.tblsorgu.Close;
     DataModule1.tblsorgu.SQL.Clear;
     DataModule1.tblsorgu.SQL.Add('Select Sum(Tutar) as Bakiye');
     DataModule1.tblsorgu.SQL.Add('From tblislem');
     DataModule1.tblsorgu.Open;

     kalanbakiye:=DataModule1.tblsorgu.FieldByName('Bakiye').Value;

     Chart1.Series[0].AddY(kalanbakiye, 'Alacağım', TAlphaColorRec.Skyblue);

Bu şekilde chart nesnesini kullanıyorum.

unit Unit1;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
 FMX.StdCtrls, FMX.Controls.Presentation, FMX.Ani, FMX.Styles.Objects,
 FMX.Layouts;

type

 TDataPie =Record
    B:String;
    W:Single;
    C:TAlphaColor;
 End;


 TForm1 = class(TForm)
   Rectangle1: TRectangle;
   ToolBar1: TToolBar;
   Switch1: TSwitch;
   btnOlustur: TButton;
   Pie1: TPie;
   Circle1: TCircle;
   Text1: TText;
   StyleObject1: TStyleObject;
   FloatAnimation1: TFloatAnimation;
   Text2: TText;
   procedure btnOlusturClick(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure FloatAnimation1Process(Sender: TObject);
   procedure Switch1Switch(Sender: TObject);
 private
   { Private declarations }
   FSeries:Array of TDataPie;
   FSum:Single;
 public
   { Public declarations }
   procedure ShowPieChart;
   procedure Ciz;
 end;

var
 Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.btnOlusturClick(Sender: TObject);
begin
 ciz;
 ShowPieChart;
end;

procedure TForm1.Ciz;
var
A:Integer;
S:Single;
const
Bezeich: Array [0..6] of string =('AA','BB','CC','DD','EE','FF','GG');
ColorKey:Array[0..6] of Talphacolor= ($FFFFE0,$6495ED,$FFEBCD,$F5F5DC,
$1E90FF,$F0F8FF,$FAEBD7);
begin
  Fsum:=0;
  SetLength(FSeries, 2+ Random(6));
  for A:=Low(FSeries) to High(FSeries) do
   begin
     s:=10+Random(1000);
     Fseries[A].B:=Bezeich[A];
     Fseries[A].W:=S;
     Fseries[A].C:=ColorKey[A];
     FSum:=Fsum + s;



   end;
   showpiechart;

end;

procedure TForm1.FloatAnimation1Process(Sender: TObject);
begin
with FloatAnimation1 do
{ begin
  text1.Text:=inttostr(round(((1/360)*(90+pie1.StartAngle))*100))+'%';
  text2.Text:=text1.Text;
  styleobject1.Opacity:=Currenttime;
end;
}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RandSeed:=86602681;
Fill.Kind:=TBrushKind.Solid;
Rectangle1.Fill.Assign(Self.Fill);
Rectangle1.Stroke.Kind:=TBrushKind.None;
Circle1.Fill.Assign(Self.Fill);
Circle1.Stroke.Kind:=TBrushKind.None;
Text1.Text:='';
Text2.text:='';
Pie1.Stroke.Kind:=Tbrushkind.None;
Pie1.Fill.Assign(Self.Fill);
Rectangle1.Padding.Rect:=Trect.Create(5,5,5,5);
pie1.Align:=TAlignLayout.Contents;

ciz;
Showpiechart;


end;

procedure TForm1.ShowPieChart;
var
K:TFmxObject;
F,E,H,R,M:Single;
A:Integer;
P:Tpie;
S:String;
L:TLayout;
T:TText;
begin
try


Rectangle1.RemoveObject(Pie1);
Rectangle1.RemoveObject(StyleObject1);
while Rectangle1.ChildrenCount > 0 do
 for K in Rectangle1.Children  do
   begin
     Rectangle1.RemoveObject(K);
     K.Free;
   end;
  StyleObject1:=Tstyleobject.Create(nil);
  if switch1.IsChecked then F:=0.1 else F:=0.3;
  //create view

  E:=-90;
  for A := Low(FSeries) to High(FSeries) do
   begin
     P:=TPie.Create(nil);
     P.StartAngle:=E;
     R:=(FSeries[A].W/FSum)*360;
     P.EndAngle:=E+R;
     M:=E+R*0.5;
     E:=P.EndAngle;
     P.Fill.Color:=FSeries[A].C;
     P.Stroke.Kind:=tbrushkind.None;
     rectangle1.AddObject(P);
     p.Align:=TAlignLayout.Client;
     S:=inttostr(Round((FSeries[A].W/FSum)*100))
     +'%'+linefeed+Fseries[A].B;
     if TOSVersion.platform=tosversion.TPlatform.pfWindows then
      begin
        P.ShowHint:=True;
        P.Hint:=S;
      end;

      L:=TLayout.create(nil);

      //L.setbounds(0,0,0,0);
      L.RotationCenter.Point:=TpointF.Zero;
      Styleobject1.AddObject(L);
      with rectangle1.LocalRect.CenterPoint do
         L.setbounds(X,Y,0,0);
       //  L.Position:=Rectangle1.LocalRect.CenterPoint;
        l.RotationAngle:=M;
        T:=TText(Text1.Clone(nil));
        T.Align:=TAlignLayout.None;
        t.Width:=80;
        t.Text:=s;
        TText(T.Children[0]).text:=S;
        l.Width:=(Rectangle1.LocalRect.BottomRight.Length
        *F)+(t.LocalRect.BottomRight.Length* 0.5);
        StyleObject1.AddObject(T);
        t.Position.Point:=StyleObject1.AbsoluteToLocal(L.AbsoluteRect.BottomRight)-
          T.localrect.CenterPoint;


   end;

   pie1.StartAngle:=-90;
   pie1.EndAngle:=270;
   Rectangle1.AddObject(pie1);
   Rectangle1.AddObject(styleobject1);
   FloatAnimation1.Start;
 except on E: Exception do
 //ShowMessage(e.Message);
end;
end;

procedure TForm1.Switch1Switch(Sender: TObject);
begin
ShowPieChart;
end;

end.

object Form1: TForm1
 Left = 0
 Top = 0
 Caption = 'Form1'
 ClientHeight = 480
 ClientWidth = 598
 FormFactor.Width = 320
 FormFactor.Height = 480
 FormFactor.Devices = [Desktop]
 OnCreate = FormCreate
 DesignerMasterStyle = 0
 object Rectangle1: TRectangle
   Align = Center
   Size.Width = 271.000000000000000000
   Size.Height = 272.000000000000000000
   Size.PlatformDefault = False
   object Pie1: TPie
     Align = Client
     Size.Width = 271.000000000000000000
     Size.Height = 272.000000000000000000
     Size.PlatformDefault = False
     StartAngle = -90.000000000000000000
     EndAngle = 270.000000000000000000
     object Circle1: TCircle
       Align = Center
       Size.Width = 271.000000000000000000
       Size.Height = 80.000000000000000000
       Size.PlatformDefault = False
       object Text1: TText
         Position.X = 104.000000000000000000
         Position.Y = 16.000000000000000000
         Size.Width = 66.000000000000000000
         Size.Height = 49.000000000000000000
         Size.PlatformDefault = False
         TextSettings.Font.StyleExt = {00070000000000000004000000}
         object Text2: TText
           Position.X = 13.000000000000000000
           Position.Y = 4.000000000000000000
           Size.Width = 43.000000000000000000
           Size.Height = 41.000000000000000000
           Size.PlatformDefault = False
         end
       end
     end
     object FloatAnimation1: TFloatAnimation
       Duration = 0.200000002980232200
       OnProcess = FloatAnimation1Process
       StartValue = 0.000000000000000000
       StopValue = 0.000000000000000000
     end
   end
 end
 object ToolBar1: TToolBar
   Size.Width = 598.000000000000000000
   Size.Height = 40.000000000000000000
   Size.PlatformDefault = False
   TabOrder = 1
   object Switch1: TSwitch
     IsChecked = False
     Position.X = 224.000000000000000000
     Position.Y = 8.000000000000000000
     TabOrder = 0
     OnSwitch = Switch1Switch
   end
   object btnOlustur: TButton
     Position.X = 32.000000000000000000
     Position.Y = 16.000000000000000000
     TabOrder = 1
     Text = 'olustur'
     OnClick = btnOlusturClick
   end
 end
 object StyleObject1: TStyleObject
   Position.X = 128.000000000000000000
   Position.Y = 96.000000000000000000
   Size.Width = 305.000000000000000000
   Size.Height = 297.000000000000000000
   Size.PlatformDefault = False
   SourceLink = <>
 end
end