Sender パラメータの使い方
コンポーネントの利用：インデックス への移動
イベントハンドラの Sender パラメータは，どのコンポーネントがイベントを受け取ったか，つまり，どのコンポーネントがハンドラを呼び出したかを表します。複数のコンポーネントに同じイベントハンドラを共有させ，呼び出し元のコンポーネントに応じて異なる操作をさせると便利な場合があります。その場合，if...then...else 文の中で Sender パラメータを使用します。以下のコードは，Button1 が OnClick イベントを受け取ったときだけダイアログボックスのキャプションをアプリケーションタイトルに表示するように記述しています。
procedure TMainForm.Button1Click(Sender: TObject);
begin
if Sender = Button1 then
AboutBox.Caption := 'About ' + Application.Title
else
AboutBox.Caption := '';
AboutBox.ShowModal;
end;