[marcoszorrilla]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 ShowMessage('Linea 1'+Chr(10)+'Linea 2'+Chr(10)+'Linea 3');
 end;
 {Si va tener muchas líneas es mejor definir una variable}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
 lf:String;
 begin
 lf:=Chr(10);
 ShowMessage('Linea 1'+lf+'Linea 2'+lf+'Linea 3');
 end;

Un Saludo.