[jachguate]

Orale!

Que romanticos se me pusieron todos... queridos amigos. No cabe duda que cupido está haciendo de las suyas por aqui por el club, no cabe duda que también los informáticos tienen su corazoncito...

Aún cuando nuestro amor se exprese entre números, formulas, objetos y algoritmos... no cabe duda que seguimos siendo humanos... sujetos de afecto y cariño.

Mas allá de nuestras opiniones, a veces encontradas... de nuestros gustos diferentes... y del supuesto amor, a veces vil y mezquino, que solamente roba y aplasta la esencia de nuestra vida... es la verdadera amistad la que hace florecer nuestro interior. Por ello, aprovecho este momento para decir: Gracias amigos... por su amistad y su ayuda.

Var
  LifeSize : Integer;

Begin
  LifeSize := 0;
  while StillAlive do
  Begin
    if FindAFriend Then
      LifeSize := LifeSize + 1;
    if UserName = 'jachguate' Then
      FindMoreFriends('http://www.clubdelphi.com');
  End;
  if LifeSize < 1000 Then
    ShowMessage('Life sucks!')
  else
    ShowMessage('You're a very Lucky man!');
end;

Hasta luego, y feliz día de San Valentín...