为了保证截获异常千万别忘了采取保护措施:
function ****you(state:TSexState):Variant;
...
try
if BEFORE then
result:=random( touch,kiss,....)
else
if do
ING then
result:=[condom,prophylactic ]
else
if do
NE then
result:=sleepping;
...
except on PREGNANT
begin
// you can get many results from the book << Sex Delphi >> published by gdcqs
end;