Error 530 intentando mandar email con NMSMTP

[xilef]

Hola, estoy intentando que mi aplicacion envie un email (practicando un poco) y me da este error:

'530.5.7.0 Must issue a STARTTLS command first'

el codigo es este:

NMSMTP1.Port:=25;
 NMSMTP1.Host:='smtp.gmail.com';
 NMSMTP1.UserID:= 'userid' ;
 if not (NMSMTP1.Connected) then
 NMSMTP1.Connect;
 NMSMTP1.PostMessage.FromAddress := 'email';
 NMSMTP1.PostMessage.FromName := 'nombre';
 NMSMTP1.PostMessage.Attachments.Text := 'ruta_al_archivo';
 NMSMTP1.PostMessage.Body.Text:= 'Prueba';
 NMSMTP1.SendMail;
 NMSMTP1.Disconnect;

¿Sabe alguien porque me pasa?He provado a cambiar la propiedad EncodeType de NMSMTP a uuMime y a uuCode, no se me ocurre nada mas.

Un saludo y gracias.