Quebrando Linhas no MessageBox

Quebrar linhas no MessageBox, é simples, basta utilizar o comando #13.

Exemplo exibido em um botão (TBitbtn):

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Application.MessageBox(PChar('Gerando Sistemas...' + #13 + 'Delphi'), 'Teste Quebrar Linha', MB_ICONEXCLAMATION);
end;

**********************************************************************************

Faça o download do arquivo: Quebrando Linhas no MessageBox.rar
**********************************************************************************

"Treino, é treino,
jogo é jogo." Neném Prancha.