Codigo sin utilidad

[MaMu]

Este código es completamente útil para cuando me pica la espalda o cuando tengo una fuerte comezón sentado en la computadora

Código Delphi [-]
procedure rascame(ParteDelCuerpo:TBody,Intensidad:integer,Tiempo:TTime);
var QueMano:TBody;
     MePica:boolean;
begin
  MePica:=True;
  QueMano:=Tbody.Create;
  QueMano.Assign(ParteDelCuerpo);
  While MePica=True 
      then begin
          With ParteDelCuerpo do
               Lapsus:=Tiempo;
               Fuerza:=Intensidad;
          end;
          Try 
            QueMano.Rascame;
          except
            QueMano.Message(10,10,'Eres manco!!! no puedo rascarte'); 
          finally
            QueMano.YaPaso;
            MePica.Status:=False;
         end;
  QueMano:= nil;
 ParteDelCuerpo.Free; 
end;

Juaz