Ayuda con SMTP

[SonGoten]

Hola a todos, estoy realizando un programa para enviar correo electronico mediante comandos TCP. Me conecto al servidor y envio el correo, de hecho me llega a la cuenta, pero me llega sin remitente, sin asunto y sin texto dentro.

TCPClient.Connect;
continuar:=false;
while continuar=false do Application.ProcessMessages;
TCPClient.WriteLn('HELO '+ Form2.LabeledEdit3.Text);
Memo1.Lines.Add('--> '+'HELO '+ Form2.LabeledEdit3.Text);
Memo1.Lines.Add('');
continuar:=false;
while continuar=false do Application.ProcessMessages;
TCPClient.WriteLn('MAIL FROM:<'+ Form2.LabeledEdit1.Text+'>');
Memo1.Lines.Add('--> '+'MAIL FROM:<'+ Form2.LabeledEdit1.Text+'>');
Memo1.Lines.Add('');
continuar:=false;
while continuar=false do Application.ProcessMessages;
TCPClient.WriteLn('RCPT TO:<'+ Form2.LabeledEdit2.Text+'>');
Memo1.Lines.Add('--> '+'RCPT TO:<'+ Form2.LabeledEdit2.Text+'>');
Memo1.Lines.Add('');
continuar:=false;
while continuar=false do Application.ProcessMessages;
TCPClient.WriteLn('DATA');

Tras esto introduzco el texto, termino con el '.' y luego QUIT. Se os ocurre que le puede pasar?

Muchas gracias