>>307
procedure TButtonClick(Sender:TObject);
begin
Label1.Caption := 'FireWireから何も学ばないユーザー';
end;

こうですか？　わかりません。