BUeno, esto que te mando lo puedes modificar, si tienes una lista de los usuarios haces ciclo que le envie a cada uno el mensaje.
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow(),
nil,
pChar('mailto:'+
TLabel(Sender).Caption),
nil,
nil,
SW_SHOWNORMAL);
end;
Esto es de Trucomania. Tienes que agregar al Uses ShellApi.
Modificalo y quizas te sirva para lo que necesitas
Un Saludo
Rollings
