// patch
if yourSex='男' then
I.Go;
if yourSex='女' then
// patch part
if My.GirlFirend=nil then
My.GirlFirend:=GirlFirend.
Create;
if not My.GirlFirend.
isProgramer then
begin
sendmessage(My.GirlFirend,Kiss);
sendmessage(My.GirlFirend,HTML_Kownloge);
sendmessage(My.GirlFirend,Kiss);
sendmessage(My.GirlFirend,Delphi_Kownloge);
sendmessage(My.GirlFirend,Kiss);
sendmessage(My.GirlFirend,SQL_Kownloge);
sendmessage(My.GirlFirend,Kiss);
sendmessage(My.GirlFirend,CGI_Kownloge);
end;
if My.GirlFirend.
Agree then
My.GirlFirend.
Go;
else
My.GirlFirend.
Free;