[glorx]

вообщем что получилось график вроде строит, незнаю правильно ли)
ругается на Series1 и Series2 которые я вручную прописал вначале:
Series1:Tfastlineseries
Series2:Tfastlineseries
но нажимаем no и запускает прогу, как от этого сообщения избавится?
и еще график мелкий какой та, как увеличить? и нужно чтобы значения по оси x и y подписаны были хотябы!!
В самом TСhart я ничего не делал!
вот код если что:

Код:

procedure TForm1.btn10Click(Sender: TObject);
   var j,n: integer;
begin
with Chart1 do
  begin

   UndoZoom;//востанавливаем исходный масштаб
   Title.Text.Clear;
   Title.Text.Add('Зависимость КПД и коэф.сколжения от коэф.тяги');//GRAPHIC
   LeftAxis.AxisValuesFormat := '##.00';//
   BottomAxis.Title.Caption  := 'трение';//подписываем X
   LeftAxis.Title.Caption    := 'кпд и скольжение';//подписываем Y
   Repaint;
 end;
//создаём серию
 Series1:=TFastLineSeries.Create(Chart1); //тип FastLine
 Series1.ParentChart := Chart1;             //назначение родительского графика
 (Series1 as TFastLineSeries).LinePen.Width:=2;//толщина
 Series1.XValues.Order:= LoNone;               //чтобы соединялись точки так как их вводят!!!

 Series2:=TFastLineSeries.Create(Chart1); //тип FastLine
 Series2.ParentChart := Chart1;             //назначение родительского графика
 (Series2 as TFastLineSeries).LinePen.Width:=2;//толщина
 Series2.XValues.Order:= LoNone;               //чтобы соединялись точки так как их вводят!!!
   n:=StrToInt(Form1.lbledt23.text);
for j := 1 to n do  //n - это  чтобы брал только троки заполненые а не все, n - кол-во опытов вводим раньше!!
  begin   
   Series1.AddXY(StrToFloat(strngrd1.Cells[3,j]),StrToFloat(strngrd1.Cells[4,j]), '',clRed);
   Series2.AddXY(strtofloat(strngrd1.Cells[3,j]),strtofloat(strngrd1.Cells[5,j]), '',clGreen);
    end;
Series1.Title := 'Скольжение'; //
 Series1.Active := True;
 Series2.Title := 'КПД'; //
 Series2.Active := True;
 end;