Delphi - Cuerpo del Mail

Estoy realizando una aplicacion en la cual saco datos de una tabla y necesito mandarlos por mail, abrir el outlook y que en el cuerpo del mensaje me concatene los datos... Ahora... todo eso esta!!! pero no se como pasarle el parametro al body del mail y asi poder enviarlo... Si me pueden ayudar se los agradecere mucho. Aca abajo esta el codigo del programa....

procedure TFrmConsultar.dxBarButton20Click(Sender: TObject);
var a : TDateTime;
b : string;
c : TDateTime;
d : string;
cadena : string;
Titulo : string;
Parametro : string;
begin
a:= DMHermes.OraQSolicitudes_ViajesFECHA_HORA_PARTIDA.Value;
b:= DMHermes.OraQSolicitudes_ViajesCIUDAD_ORIGEN.Value;
c:= DMHermes.OraQSolicitudes_ViajesFECHA_HORA_LLEGADA.value;
d:= DMHermes.OraQSolicitudes_ViajesCIUDAD_DESTINO.value;

Titulo := 'Fecha Partida Ciudad Origen Fecha LLegada Ciudad Destino';
cadena:= DateToStr(a) + ' ' + b + ' ' + DateToStr(c) +' '+ d;
Parametro := Titulo + #13 + cadena;

// Aca viene el problema!!! en Body necesito pasarle la variable "Parametro".

shellExecute(Self.Handle, nil,
'mailto:[email protected]' +
'?Subject=Solicitud de Reserva&Body= aqui va el cuerpo del mensaje osea Parametro',
nil, nil, SW_NORMAL);