A lo mejor este código te puede servir
Código Delphi
[-]procedure TForm1.Edit1DblClick(Sender: TObject);
begin
ShellExecute(GetDesktopWindow(), nil,
pChar('mailto:' + TLabel(Sender).Caption+'?subject=Mensaje de su Programador'), nil, nil, SW_SHOWNORMAL);
end;
donde Edit1 es donde aparece la dirección de correo a quien quieres enviar tu email.
Salu2