Hint - varias linhas

Como colocar Hint's de várias linhas?

{ - Coloque um TButton no Form;

  - Altere o evento OnCreate do Form como abaixo: }

procedure TForm1.FormCreate(Sender: TObject);

begin

  Button1.Hint := 'Linha 1 da dica' + #13 +

                  'Linha 2 da dica' + #13 +

                  'Linha 3 da dica';

  Button1.ShowHint := true;

end;