Salto de linea en el body de un email

[kverna]

Hola amigos: necesito enviar un email desde delphi ejecutando outlook express donde el cuerpo del mensaje tenga varias linea separadas por 'saltos de linea', es decir el cuerpo del mensaje debería aparecer asi

linea 1
linea 2...

pero cuando creo el email todas las lineas en el cuerpo aparecen de manera contigua:

linea1linea2....

A continuación muestro el código que lo genera:


em_dir:='ejemplo@prueba.com';
em_subject:='Correo de Prueba';
em_body:='linea 1'+#13+'linea2';

//Lo creo y activo outlook express
em_mail:='mailto:'+em_dir+'?subject='+em_subject+'&body='+em_body;
shellExecute(Handle,'open',PChar(em_mail),nil,nil,SW_SHOWNORMAL);

Alguien tiene idea de como insertar estos saltos de línea?

Desde ya muchas gracias