[OT] Schlafforscher aufgepasst!

[WM_CLOSE]

Ich habe des Schlaf-Code entschlüsselt!

Delphi-Quellcode:

procedure GetaSleep;
var
  Sheep:byte;
  aSleep:Boolean;
begin
{$OVERFLOWCHECKS ON}  
  aSleep:=False;
  try
    while not aSleep do Inc(Sheep)
  finally
    aSleep:=True;
  end;
{$OVERFLOWCHECKS OFF}  
end;