落書き帳を使って、ファイルの読み書きをやってみます。
せっかく描いたものだからやっぱり保存はしたいものね

フォームに次の２つのダイアログを貼り付けます。（ツールパネルのDialogs）

この２つのコンポーネントの「DefaultExt」プロパティを「bmp」にします。
FIlterプロパティのダイアログボタンをクリックし、表示されるなかから、ビットマップ以外を削除します。

「名前を付けて保存」が選択されたときのイベントハンドラ
OnClickのところをダブルクリックする

procedure TfrmMain.S1Click(Sender: TObject);
begin
  //名前を付けて保存がクリックされたとき
  if SavePictureDialog1.Execute then
  begin
    bmpArea.SaveToFile(SavePictureDialog1.FileName);
    Caption := Application.Title + ' - ' + SavePictureDialog1.FileName;
    S1.Enabled := False;
  end;
end;

こんなダイアログが開きます。
さあて何か保存してみようかなぁ

やった！
ちゃんと保存されてました。ブラシだけで描いているのかなりヒドイですけど

 ファイルを開く

保存したファイルを開くほうもやってみました。
こんな感じです。

もう少しあるんだけど、なんだか疲れちゃったので、落書き帳はここでいったんお休みします。
次の課題をやってみようと思います。