Construindo gráfico com Canvas

procedure TForm1.FormShow(Sender: TObject);
var x,y:integer;
begin
image1.canvas.color:=clred;//defina a cor
image1.canvas.rectangle(0,0,30,300); //função máxima
edit1.text:='0';//zero
end;
//o código acima descreve como é criado o fundo do gráfico
//o código abaixo descreve como o gráfico se comporta:
//coloque no evento on change do edit1:

procedure TForm1.Edit1Change(Sender: TObject);
var x,y:integer;
begin
x:=strtoint(edit1.text);//insira as variáveis
image1.picture.clear;//atualiza
image1.canvas.color:=cllime;//defina a cor do fundo
image1.canvas.rectangle(0,0,30,300); //função máxima
image1.canvas.color:=clred;//defina a cor função
image1.canvas.rectangle(0,0,30,300-x); //função

end;