求解Source和Sender参数的具体的用法(100分)

elphi中的Source和Sender参数的1、详细解释和2、具体的用法，请大家帮帮忙!!!

Sender是指消息的发送者，它用的最多的地方是用来多个控件共用一段代码，如
procedure TForm1.Button1Click(Sender: TObject);
begin
if ;Sender is TButton then
; case TButton(Sender).tag of
; ; 1:XXXX;
; ; 2:xxxx;
; end;
end;
Source是指哪里的Source？

接受答案了.