ejercicio

[jefferson]

hala amigo.
me refiero mas o menos a lo siguiente:

ingreso un correo como juanito@hotmailcom.
o juanito@yahoo.es o bien sea uno para gmai. como este es un ejercicion de principiantes, solo necesito organizar la condicion que me diga si el correo ingresado es valido o no.

yo tengo un ejercio de clases, pero este es para allar el area de un cuadrado.
osea asi:

unit cuadradounit;
interface
type
Tcuadrado=class
private
lado:integer;
public
procedure setlado(Alado:integer);
function area:integer;
function getlado:integer;
end;
implementation
procedure Tcuadrado.setlado(Alado:integer);
begin
lado:=Alado;
end;
function Tcuadrado.getlado:integer;
begin
result:=lado;
end;
function Tcuadrado.Area:integer;
begin
result:=lado*lado;
end;
end.
end.


la cosa es que en este necesito otro enfoque por lo de la condicion, y alli es donde me enrredo un poco.