Un codigo sencillo
 

Para validar Email.

Código Delphi [-]
function ValEmail(EMail: string): Boolean;
var
  s: string;
  ETpos: Integer;
begin
  if EMail<>'' then
  begin
      ETpos := pos('@', EMail);
      if ETpos > 1 then
      begin
        s := copy(EMail, ETpos + 1, Length(EMail));
        if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
          Result := true
        else
          Result := false;
      end
      else
        Result := false;
    end else result:=true;
end;

Yo veo que esto se esta transformando mas que en un programa en una librería. Podríamos llamarla CaralLib version 0.01?:D

Muy bueno, pero la verdad que creo que algo asi sería solo útil si discriminará los objetos de Delphi de los propios... Para que quiero otra vez ver tooodas las propiedades del tform en el diagrama?

Perdoón, otra vez le estamos desvirtuando el hilo a Caral.:o

Bueno, eso es porque yo le he pasado como Unit para la prueba Forms.pas. Si le pasas una Unit tuya explora sólo las clases de esa unit.
También permite pasarle un directorio y explorar las clases de un directorio.

Aun así, cuando le pasas una unit y te genera el diagrama, este es modificable; De forma que en ese diagrama puedes mover y ocultar las clases. Puedes seleccionar clases por separado y copiarlas al portapapeles,...

Imagen1
Imagen2
Imagen3

Incluso te genera una espacie de documentación HTML con los gráficos, métodos, clases,... (bastante rudimentaria, eso sí). Aquí un ejemplo.

Además, como ya he dicho, el código fuente está disponible, así que puedes ampliarlo segun tus necesidades. ¡¡Qué mas se puede pedir!! :D:D:D

Estando en Delphi, nada más. ;)

Hola
Dale hombre, desvirtúa el hilo, que asi se han llegado a cosas muy interesantes, ademas no os olvidéis que estamos en la taberna.:D:D

Código Delphi [-]
If Caral.Hilo = Desvirtuado.donald shimoda  then
ShowMessage(' donald shimoda  paga la siguiente ronda ');

Saludos

Código Delphi [-]
function Maquina_canyas(num : integer; can : float; cl : TColor) : array of TCanyas;
var
       curr_camarero : integer;
       canyas : array of TCanyas;
begin
         curr_camarero := 0;
         SetLength(canyas,num);

         while (curr_camarero < num) then
         begin
                 canyas[curr_camarero].cantidad := can + random(10) - random(5);
                 canyas[curr_camarero].Tipo := cl;                
                 inc(curr_camarero);
         end;
         Maquina_canyas := canyas;
end;

esto es para la taberna, no se yo si incluirlo en el programa

PD : de verdad se pierde un poco el 'oremus' por aqui eh?:D
PDD : edito, que me dio un error de compilacion.

Les mando saludos desde Chihuahua. :p

yo propongo que se proteja el código de la siguiente manera:

Código Delphi [-]
 
Try
  . ...
Except
  On Error: Exception Do 
    showMessage('Ha ocurrido un error grave, por favor envie un par de cervezas a los desarrolladores y en breve nos pondremos en contacto');
 
End;

spoli, ese si es un buen siguimiento de errores.

salud