Какую диаграмму?

Как ты её делаешь

//--------- Диаграмма отображаемая на мониторе ---------------------------------
           WayField := WH_Query2.FieldByName('way');
           PressuerField := WH_Query2.FieldByName('bar');
           Chart1LineSeries1.BeginUpdate;
           try
            Chart1LineSeries1.Clear;
             while not WH_Query2.EoF do
             begin
               Chart1LineSeries1.AddXY(WayField.AsFloat, PressuerField.AsFloat);
               WH_Query2.Next;
             end;
           finally
              Chart1LineSeries1.EndUpdate;
           end;

Как ты её сохраняешь?

чарт умеет себя к слову печатать:  Chart1.Print;
может это поможет?

//this will use more printer resolution
Chart1.PrintResolution := 100;

var
 b: TBitmap;
begin
  b := TBitmap.Create;
  b.Width := 2000;
  b.Height := 1000;
  Chart1.Draw(b.Canvas,b.Canvas.ClipRect);
  b.SaveToFile('e:\t.bmp');

Ща попробую

опять же, через отрисовку на канвасе, вот как Борис кинул. или подобные методы

битмап для примера, любой поддерживаемый тип можно

а чего в uses добавить нужно, что бы на канвас не ругался?

Graphics, но он и так есть, иначе бы на TBitmap ругался

что пишет?

У меня Teechart Pro. Если у тебя встроенный, то там может не быть Draw (я не знаю)

unit1.pas(1177,30) Error: Incompatible type for arg no. 1: Got "TCanvas", expected "IChartDrawer"

Лазарус, не Delphi?

у меня обычный и код собирается

лазарь

ясно, там видимо не умеет

Тогда надо смотреть, какие там методы рисования чарта есть, как описаны. Я не в курсе.