Change the Scale

procedure TForm.BtnClick(Sender: TObject);

begin

Graph.horzScale.AxisMax:=1;

Graph.horzScale.AxisMin:=0;

Graph.horzScale.CalcTicks;

Graph.vertScale.AxisMax:=1;

Graph.vertScale.AxisMin:=-1;

Graph.vertScale.CalcTicks;

end;