ошибка в програмие построения графика на Delphi

[Federer]

програма работает но затем появляется ошибка

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    pnlControls: TPanel;
    btnRefiresh: TButton;
    btnStop: TButton;
    pnlInputs: TPanel;
    edtStart: TEdit;
    edtEnd: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    imgGraphic: TImage;
    procedure btnRefireshClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
  private
    fInRender: Boolean;
    Function MyFn(arg:Double) : Double;
    procedure
    clearContent;
    procedure CalcGraphic (aStart, aEnd: Double; var values: array of Double;
    var aMaxFn, aMinFn:Double);
    procedure RenderGraphic(aStart, aEnd:Double);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.CalcGraphic(aStart, aEnd: Double;
  var values: array of Double; var aMaxFn, aMinFn: Double);
var
argStep:Double;
i:Integer;
begin
  values [0]:=MyFn(aStart);
  aMaxFn:=values[0];
  aMinFn:=values[0];
  argStep:=(aEnd-aStart)/(High(values)+1);
  for i:=1 to High (values) do
  begin
    values[i]:=MyFn(i*argStep);
    if values[i]>aMaxFn then aMaxFn:=values[i];
    if values [i]<aMinFn then aMinFn:=values[i];
    Application.ProcessMessages;
    if not fInRender then Break;
  end;
end;

procedure TForm1.clearContent;
begin
   imgGraphic.Picture.Graphic.Width:=imgGraphic.Width;
   imgGraphic.Picture.Graphic.Height:=imgGraphic.Height;
 imgGraphic.Canvas.FillRect(imgGraphic.ClientRect);
 end;

function TForm1.MyFn(arg: Double): Double;
begin
   result:=Sin(arg);
end;

procedure TForm1.RenderGraphic(aStart, aEnd: Double);
var
  MaxFn,
  MinFn,
  fScale:double;
  i:Integer;
  values:array of Double;
  begin
    clearContent;
    imgGraphic.Canvas.TextOut(0,0, ' Обчислення...');
    SetLength(values,imgGraphic.Width);
    CalcGraphic(aStart, aEnd, values, MaxFn, MinFn);
    clearContent;
    imgGraphic.Canvas.TextOut(0, 0, 'Max= ' +FloatToStr(MaxFn));
    imgGraphic.Canvas.TextOut(0, imgGraphic.Height- imgGraphic.Canvas.TextHeight('Q'), 'Min='+FloatToStr(MinFn));

    fScale:=(MaxFn-MinFn)/imgGraphic.Height;
    imgGraphic.Canvas.MoveTo (0,trunc((MaxFn-values[0])/fScale));
    imgGraphic.Canvas.Pen.Color:=clRed;
    for i:=1 to imgGraphic.Width-1 do
    imgGraphic.Canvas.LineTo(i, Trunc((MaxFn-values[i])/fScale));
  end;
procedure TForm1.btnRefireshClick(Sender: TObject);
var
  err:Integer;
  fStartArg, fendArg:Double;
  begin
    Val(edtStart.Text,fStartArg,err);
    if err>0 then
    begin
      MessageDlg('Введіть коректне початкове значення аргументу.', mtError,[mbOK],0);
      edtStart.SetFocus;
      Exit;
      end;
      Val(edtEnd.Text, fendArg,err);
      if err>0 then
      begin
        MessageDlg('Введіть коректне кінцеве значення аргументу.',mtError,[mbOK],0);
        edtEnd.SetFocus;
        Exit;
        end;
        if fStartArg=fendArg then
        begin
          MessageDlg('Початкове і кінцеве значення аргуменів однакові. ',mtError,[mbOk],0);
          edtEnd.SetFocus;
          Exit;
          end;
          pnlInputs.Enabled:=False;
          btnStop.Enabled:=True;
          fInRender:=True;
          RenderGraphic(fStartArg, fendArg);
          fInRender:=False;
          btnStop.Enabled:=False;
          pnlInputs.Enabled:=True;

        end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
imgGraphic.Picture.Graphic:=TBitmap.Create;
clearContent;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Federer]

результат такой:

[Rin]

Вот скажи мне, на кой черт ты делаешь вот это:

   imgGraphic.Picture.Graphic.Width:=imgGraphic.Width;
   imgGraphic.Picture.Graphic.Height:=imgGraphic.Height;

Если все и так за тебя сделали? Удали эти строки.

[Federer]

Спасиба, но ето не помогает - опять ошибка после введения значений.

[Rin]

Смотря как вводите. Если вводите вещественные, то ставьте запятую, а не точку. Я проверял, у меня в TurboDelphi работает.
А ещё я бы сделал "защиту от дурака" для каждого поля ввода.
Ах, да, хоть ошибку то напишите, а если скрин, то только сообщение ошибки, а то черт ногу сломит разглядывать буквы в изображении, скинутом вами выше.

[Federer]

Я питался вводить любие комбинации чисел но все равно ошибка

[Federer]

Ура, все вдруг заработало. Спасиба большое за помощь.

[Federer]

А как сделать чтоби после виполнения програми при увеличения окна изображения графика увеличивалось.

[Rin]

Если ещё актуально, то увеличивать размеры imgGraphic, стирать нарисованное и заново все просчитывать с выводом результата.