Delphi - OUTLOOK 2007

Hola amigos de LWP:

Una pregunta para ustedes, ojalá me puedan ayudar, tengo el siguiente código para enviar un correo a través de OutLook 2007:

procedure TForm1.Button1Click(Sender: TObject);
var
subject, body, email:String;
begin
subject:='Correo desde Delphi através de Outlook';
body:='Esta es una prueba de correo enviado desde Delphi';
email:='mailto:[email protected]?subject=' + subject + '&body=' + body;

ShellExecute(Handle,'open',PChar(email),nil, nil,SW_SHOW);
end;

Al ejectuar este código, se abre la ventana de OutLook para mandar el correo, con los datos que le paso desde el código, lo que quisera hacer es como mandar directamente el correo sin necesidad de que se abra el OutLook, o como hacer para que una vez que se abra la pantalla de OutLook mandarle la instrucción de enviar desde Delphi.

Gracias de antemano y saludos.

Creo que te sería más fácil mandarlo tu mismo desde delphi, lo puedes hacer con indy

http://delphiallimite.blogspot.com/2006/07/enviando-un-correo-con-indy.html

Esto simpre y cuando cuentes con los datos de de la cuenta de correo smtp