smtp server y cliente

[migueilichenco]

hola a todos

bueno e escrito este pequeño codigo por que queria hace un servidor y un cliente en 1 de smtp

-----------------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
begin
if not SMTP.Connected then SMTP.Connect;
SMTP.Send(mensaje);
SMTP.Disconnect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
tcpserver1.Open;
tcpclient3.Open
end;
-----------------------------------------------
e colocado un un componente smtp server u un tcpserver para dejar el puerto a la escucha pero cuando quier mandar un mail me sale este mensaje

connection Closed Gracefully

que puedo hacer para poder enviar el mail
gracias de antemano