Две и более строчек надписи на кнопке и на других компонентах

procedure TForm1.FormCreate(Sender: TObject);
 
var
 
R: TRect;
 
N: Integer;
 
Buff: array[0..255] of Char;
 
begin
 
with BitBtn1 do
 
   begin
 
     Caption := 'A really really long caption';
 
     Glyph.Canvas.Font := Self.Font;
 
     Glyph.Width := Width - 6;
 
     Glyph.Height := Height - 6;
 
     R := Bounds(0, 0, Glyph.Width, 0);
 
     StrPCopy(Buff, Caption);
 
     Caption := '';
 
     DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R,
 
       DT_CENTER or DT_WORDBREAK or DT_CALCRECT);
 
     OffsetRect(R, (Glyph.Width - R.Right) div 2,
 
       (Glyph.Height - R.Bottom) div 2);
 
     DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R,
 
       DT_CENTER or DT_WORDBREAK);
 
   end;
 
end;

procedure TForm1.Button1Click(Sender: TObject); 
 
var 
 
i: Integer; 
 
begin 
 
i := GetWindowLong(Button1.Handle, GWL_STYLE); 
 
SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE); 
 
Button1.Caption := 'Delphi World - ' + #13#10 + 'лучше не бывает!';
 
end;

type
   TAccessDBGrid = class(TDBGrid);
 
 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
   const Rect: TRect; DataCol: Integer; Column: TColumn;
   State: TGridDrawState);
 var
   S1, S2: String;
 begin
   with TAccessDBGrid(DBGrid1) do
   begin
     // Increase title height 
    // Titelhohe vergrossern 
    RowHeights[0] := 32;
 
     Canvas.Brush.Style := bsClear;
 
     // Column Titles 
    // Spalten Titel setzen 
    case Column.Index of
     0: begin
          Column.Title.Caption := '';
          S1 := 'Row 1';
          S2 := 'Row 2';
        end;
     1: begin
          Column.Title.Caption := '';
          S1 := 'Row 1';
          S2 := 'Row 2';
        end;
     end;
     // write title: 
    // Titel ausgeben: 
    Canvas.TextOut(Rect.Left+2, 2, S1);
     Canvas.TextOut(Rect.Left+2, 16, S2);
   end;
 end;