Delphi - Enviar correo

Hola Maestros... les pido un favor: Me pueden decir como hago para enviar un correo de la forma siguiente.

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellApi,
StdCtrls;

procedure TFormEnviar.Label1Click(Sender: TObject);
var Corre: String;
begin
Correo:=DBText.value;
ShellExecute(Handle,'open','mailto:Correo',nil, nil,SW_SHOW);

Es decir: DBText muestra un registro de la base de datos, y la idea es poder mandar un correo hacuiendo click sobre el registro que en ese momento se muestre .
Gracias y buenas tardes.

No te recomiendo que se permita enviar correo de esta forma, ya que esto activa el Outlook o cualquier otro programa de correo y la mayoría de usuarios no tienen esos programas corriendo, mejor usa la paleta de Internet y mira los ejemplos de Internet para enviarlo a través del Socket...