Enviar Correo

[Descendents]

como ultimo si no te funciona prueba esto

procedure TForm1.Button1Click(Sender: TObject);
var
  pCh: PChar;
begin
  pCh :='mailto:[email protected]?subject=sujeto&body=cuerpo&file="c:\index.htm"';
  ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);
end;

Sino no tengo ni idea.

Si esto no te sirve, y lo consigues, comunicalo al foro como.

Yo no puedo probarlo, porque no tengo el express.

Pero con outlook esto me funciona.

Saludos