2 cositas a ver si me ayudan

[lynu]

1.) la primera es que tengo un Tedit el cual sera ingresado un email y quiero saber si existe la prosibilidad de verificar la data para ver si el email esta bien escrito, (Ejemplo "usuario@email.com") pk no quisiera que algun usuario introdujera un email mal escrito (Ejemplo "u suario@//email.com") espero entiendan lo que le quiero decir

2.) Quisiera saber como en un texto hago que cambie de mayusculas a minusculas automaticamente, lo que quiero decir que cuando el usuario este dijitando la primera letra salga Mayuscula, y las demas minuscula y que si en el texto esiste un espacio, la siguiente letra despues de ese espacio sea mayusculas y las siguientes minusculas.

espero me puedan ayudar, busque en google.com y en todo el foro y no vi otro topic como este. ahh estoy bajo delphi 7.