Creating multiline hint is not so difficult. Set ShowHint of Button1 to True and try this: procedure TForm1.FormCreate(Sender: TObject); begin Button1.Hint:='Greatis'+#13+'Delphi Pages'; end;