Fórum Enviar e-mail por STMP #430906

Pessoal boa tarde estou usando o seguinte código:

var
i: integer;
str:TStringList;
begin
str:=TStringList.Create;
str.Add('Teste 1');
str.Add('Teste 2');
IdMessage1.Recipients.EMailAddresses := 'estanieski@gmail.com'; //email destinatario
IdMessage1.Subject := 'testo';//assunto
IdMessage1.Body := str; // Mensagem que será enviada


IdMessage1.From.Address := 'comercial@sinaiinformatica.com.br'; // Email do Remetente
IdMessage1.From.Name := 'Seu nome'; // Nome do Remetente, que aparecerá qdo chegar.

//FORMATAÇÃO HTML.....
IdMessage1.ContentType:='text/html';
{aqui eu coloquei codigo html e todos estão marcados com * }
IdMessage1.Body.Add('<*html><*body>');
IdMessage1.Body.Add('<*p><*a href="http://marcos.sytes.net/comprar/index.php"><*img src="http://www.websitebauru.110mb.com/compra.gif"><*/a><*/p>');
IdMessage1.Body.Add('<*p><*hr><*/p><*br>'+'FORENSE CONSULTORIA');
IdMessage1.Body.Add('<*/body><*/html>');


IdSMTP1.Host := 'smtp.sinaiinformatica.com.br';
IdSMTP1.Password := 'sinaidev274';
IdSMTP1.Username := 'comercial@sinaiinformatica.com.br';
IdSMTP1.Port:=587;
IdSMTP1.AuthenticationType:= atLogin;

if not IdSMTP1.Connected then
IdSMTP1.Connect();

if IdSMTP1.Connected then
begin
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;

end;
ShowMessage('Enviado com Sucesso!');



Até aqui tudo bem, só que ele envia sem dar erros, mas o e-mail não chega....sabem me dizer o que estou errando?