нарисовать на форме график

[Symba]

здравствуйте,нужна помощь построения зависимости переменных на форме
имеется участок кода
procedure TForm1.btn2Click(Sender: TObject);
var DTprm,DTprt: Real;
tg11,tg12,tg21,tg22: Integer;
begin
tg11:= StrToInt(edt1.Text);
tg12:= StrToInt(edt2.Text);
tg21:= StrToInt(edt3.Text);
tg22:= StrToInt(edt4.Text);
dTprm:=(((tg11-tg21)-(tg12-tg22))/(ln((tg11-tg21)/(tg12-tg22)))) ;
dTprt:=(((tg11-tg22)-(tg12-tg21))/(ln((tg11-tg22)/(tg12-tg21))));
dTprm:=(Round(dTprm*10)) / 10;
dTprt:=(Round(dTprt*10)) /10;
end;

который считает средний логарифмический температурный напор для прямоточных систем и противоточных, нужно нарисовать на форме график dTprm от tg11 и от tg21, так же dTprt от tg11 и от tg21 если tg11 изменяется от 240 до 500 , а tg21 от 0 до 180

[Sibedir]

Рисование линий и текста:

  with Image1.Canvas do begin
    Pen.Style := psSolid;
    Pen.Width := 3;
    Pen.Color := clRed;
    MoveTo (10,10);
    LineTo (100,10);

    Pen.Style := psDot;
    Pen.Width := 1;
    Pen.Color := clBlue;
    MoveTo (10,10);
    LineTo (10,100);

    Font.Color := clGreen;
    Font.Name := 'Ariel';
    Font.Height := -50;
    Font.Style := [fsBold, fsItalic];
    TextOut (50, 50, 'Text');
  end;

Далее идут вопросы масштабирования и позиционирования (короче геометрия), которые в большей степени уже относятся к соответствующему разделу математики нежели к программированию.

Попробуйте. Если не получится, тогда опять сюда (с имеющимся кодом рисования).

[Symba]

Спасибо!!!

[Johnson]

Так же можно посмотреть в сторону TChart компонента...

[Symba]

Сообщение от Johnson

Так же можно посмотреть в сторону TChart компонента...

а можно конкретно с моим примером объяснить?