SaveToBitmapFile, delphi

[SonicBob]

procedure TfrmMain.Button10Click(Sender: TObject);

var
tmp_chrt: TChart;
tmp_ClassType:TChartSeriesClass;
tmp_series:TChartSeries;
l:integer;

begin
tmp_chrt := TChart.Create(nil);
try
for l := 0 to DBChart1.SeriesCount - 1 do
 begin
 tmp_ClassType:=TChartSeriesClass(DBChart1.Series[l].ClassType);
 tmp_series:=tmp_ClassType.Create(tmp_chrt);
 tmp_series.Assign(DBChart1.Series[l]);
 tmp_chrt.AddSeries(tmp_series);
 end;
tmp_chrt.Width:=DBChart1.Width*3;
tmp_chrt.Height:=DBChart1.Height*3;
tmp_chrt.SaveToBitmapFile('blablabla'+'.bmp');
//tmp_chrt.SaveToBitmapFile(FormatDateTime('dd.mm.yyyy_hh.mm', now)+'.bmp');
finally
  tmp_chrt.Free;
end;
 end;

есть вот такая процедура,суть в том что б сохранять целиком весь график не только видимый участок, но есть ошибка не понятная
"control '' has no parent window" , гуглил не помогло