Timageに静的にグラフを描きスクロールできるようにscrollboxに載せた例です。
scrollBoxをまず配置して、その上にTImageを配置して下さい。

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    data:array[0..999] of integer;
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
  var
   i,y:integer;
begin
   //ダミーデータを作成
   for i:=0 to 999 do
   begin
      data[i]:=Trunc(50*sin(i*i/10000)+50);
   end;
   image1.width:=1000;
   image1.height:=100;

   with image1.canvas do
   begin
      moveTo(0,data[0]);
      for i:= 0 to 999 do
      begin
         LineTo(i,data[i]);
      end;
   end;
end;
☆☆☆　サンプル蔵ブラウザＵｐ！see nifty:FDELPHI/LIB/5/116  ☆☆☆
                                 98/06/14(日) 18:35 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。