procedure JoinGoogleDelphiGroup( Sender : TObject )

procedure JoinGoogleDelphiGroup( Sender : TObject )
begin
  With Sender as TAction do
    Delphi := 'Is Cool';
end;