[[Lepe]]

subir si sube, pero si no sé la solución, mejor me callo.

Si puedo aportar alguna mejora, pero el código hace lo mismo.

Código Delphi [-]
procedure TCUSTOMERS.Image2Click(Sender: TObject);
{$H+}var {$H+}
{$H+}direcciones: {$H+}string;
begin
cont:=0;
direcciones:='';
datamodule2.QUERYCUSTOMERS.First;
while not datamodule2.querycustomers.Eof do 
begin
  if datamodule2.QUERYCUSTOMERSEmail.value <> '' then 
  begin
    direcciones := direcciones + datamodule2.QUERYCUSTOMERSEmail.value +'; ';
    cont:=cont+1;
  end;
  datamodule2.querycustomers.next;
end;

ShellExecute(GetDesktopWindow,nil,pChar('mailto:'+direcciones+'?subject=Murren Murkina Information'),nil,nil ,SW_SHOWNORMAL);
//MAIL.show;
//MAIL.EDIT1.text:=direcciones;

Saludos y suerte.