ممنون
یک فرم ساختم و روی آن یک dbchart گذاشتم و با این زیر برنامه کارم حل شد
procedure ShowChartInNewForm(var Chart: TDBChart;StationName,Title:string);
var
frm:TfrmShowChart;
i:Integer;
begin
frm:=TfrmShowChart.Create(nil);
try
frm.DBChart1.Assign(Chart);
while Chart.SeriesCount>0 do
frm.DBChart1.AddSeries(Chart.Series[0]);
frm.lblStationName.Caption:=StationName;
frm.lblTitle.Caption:=Title;
frm.ShowModal;
while frm.DBChart1.SeriesCount>0 do
Chart.AddSeries(frm.DBChart1.Series[0]);
finally
frm.Free;
end;
end;