[Lenny]

Me autorespondo:

Código Delphi [-]
 
procedure TForm2.Button3Click(Sender: TObject);
begin
IdMessage1.ContentType := 'text/plain';
IdMessage1.CharSet := 'UTF-8';
IdMessage1.Recipients.EMailAddresses:=Edit1.Text;
IdMessage1.From.Address:= 'mail@mail.net';
IdMessage1.Subject:='envio de correo automático';
IdMessage1.Body.Text:=
'Para su información :' + #13#10 + #13#10 +
                   'El usuario '+ BDatos.RegHallazgos_T.FieldbyName('PGHallazgo').asString +
                   ' ha Levantado una ' + BDatos.RegHallazgos_T.FieldbyName('TipoDesviacion').asString +
                   ', Folio N° '+ BDatos.RegHallazgos_T.FieldbyName('idrhallazgo').asString + ' Con fecha '+ BDatos.RegHallazgos_T.FieldbyName('FECHA').asString +'''' +  #13#10 +
                   'Unidad De proceso:'+ BDatos.RegHallazgos_T.FieldbyName('UnidadProceso').asString + '''' + #13#10 +
                   'Responsable : '+ BDatos.RegHallazgos_T.FieldbyName('Responsable').asString +'''' + #13#10 +
                   'Descripción del Hallazgo: '+ BDatos.RegHallazgos_T.FieldbyName('DesHallazgo').asString +''''+ #13#10 +
                   'Por favor Realizar análisis de causa y acción inmediata antes de 7 días hábiles.' + #13#10 +
                   '' + #13#10 +
                   'Atte.' + #13#10 +
                   'SGC';
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;

Despues de muchas pruebas y error y buscar referentes a estos componentes di con la solucion, habia que agregar estas dos lineas al principio:

Código Delphi [-]
IdMessage1.ContentType := 'text/plain';
IdMessage1.CharSet := 'UTF-8';

Aun estoy haciendo alguans correcciones para depurar el asunto, cualquier duda si alguien tiene un problema similar, por ak estare, de antemano gracias y ojala esta solucion le sirva a alguien Byes!!!