uses ShellApi; procedure TForm1.Button4Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'mailto:direccion@server.com?subject=Hola', nil, nil, SW_SHOW); end;