1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function MyMessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: LongInt): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
  begin
    try
      Font.Size := 9; 
      Result := ShowModal;
    finally
      Free;
    end;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  MyMessageDlg(
    'Dies ist meine erste Zeile.'#13 +
    'Dies ist meine zweite Zeile.', mtInformation, [mbOk], 0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function MyMessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: LongInt): Integer;
var
  i: Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
  begin
    try
      for i:= 0 to ComponentCount - 1 do
      begin
        if (Components[i] is TControl) then
        begin
          { breiter machen, damit Schrift reinpasst }
          (Components[i] as TControl).Width :=
            Round((Components[i] as TControl).Width * 9 / 8);
        end;
        if (Components[i] is TButton) then
        begin
          { nach rechts verschieben und nach unten, damits mittig ist }
          (Components[i] as TButton).Left :=
            Round((Components[i] as TButton).Left * 9 / 8);
          (Components[i] as TButton).Top :=
            Round((Components[i] as TButton).Top * 9 / 8);
        end;
      end;
      Font.Size := -12;
      Width := Round(Width * 9 / 8);
      Height := Round(Height * 9 / 8);
      Result := ShowModal;
    finally
      Free;
    end;
  end;
end;