Bueno... a bote pronto podrías hacer algo parecido a esto (sin probar, escrito directamente y declarando una variable sAux tipo string):
Código Delphi
[-]
sAux:='mailto:'+(mail)+ '?subject=' + 'Informe sobre su situacion con '+(DM.IBQuery_materiaNOMBRE.Value) + '&body=' + 'Su situacion es la siguiente: '+'%0D%0A'+ 'Cantidad de Faltas: '+(Label_c_falta.Caption)+'%0D%0A' + ' Faltas Justificadas: '+(Label_f_jus.Caption) +'%0D%0A'+ ' Faltas Injustificadas: '+(Label_f_injus.Caption)+'%0D%0A' + ' Cantidad Faltas Disponibles: '+(Label_c_f_disp.Caption)+'%0D%0A' + ' Porcentaje Permitido: '+(Label_p_permitido.Caption)+'%0D%0A' + ' Situcion con la Materia: '+(Label_s_materia.Caption)+'.' + '%0D%0A' + '%0D%0A' +' Fecha ' + ' Cantidad de Horas ' + ' Tipo de Falta ' + ' Detalles '+ '%0D%0A');
DM.first;
while not DM.eof do begin
sAux:=sAux+DateToStr(DM.ConsultaAistenciaFECHA.Value) + ' ' + inttostr(DM.ConsultaAistenciaC_HORA.Value)+ ' '+ (DM.ConsultaAistenciaTIPO_FALTA.Value) + ' ' + (DM.ConsultaAistenciaDETALLE.Value+ '%0D%0A';
DM.next;
end;
ShellExecute(GetDesktopWindow(), nil, pChar(sAux), nil, nil, SW_SHOWNORMAL);
Saludos