[JXJ]

Hola
Seoane
gracias por tu atención

este... como que no entiendo bien, como funciona eso de
Mientras sea verdad ¿¿que ???
Esta criptico para mi.

Código Delphi [-]
while TRUE do //True o verdad que ??:S:S:S
  begin
    

    Sleep(10);//<- Este si se que detiene en milisegundos.
  end;

//--Asi probe el codigo y funciona.

Código Delphi [-]
{$SetPEFlags 1} //<-Directiva reduce tamaño del exe, solo disponible desde delphi 2005 hasta D2007 win32 
program GServerc;

uses
SysUtils, Dialogs;

var
contador: Integer;
Cerrar : Boolean;

//Inicia el programa
begin
    Contador := 1;
    Cerrar := False;
    //Bucle que mantendrá el programa vivo
  while True do
  begin
      Sleep(10);//<- Descansamos el CPU 
      if Cerrar = False then
      begin
        Contador := Contador +1;
        if contador = 100 then
      begin
      Cerrar := True;
        showmessage(intToStr(Contador));
     end

      end
      else
        //Si deseamos hacer algo al salir ponerlo aquí
        Break;
    end;


end.