Function LeftFoot(Flag:Boolean):Boolean;
begin
If Not RightFoot(Flag ) then
RightFoot(True);
end;
Function RightFoot(Flag:Boolean):Boolean;
begin
If Not LeftFoot(Flag ) then
LeftFoot(True);
end;
Function GoHome(Flag:Boolean):Boolean;
begin
If Not Flag then
If MessageBox(self.Handle,'先迈左脚吗?','确认操作',mb_YesNo or mb_iconQuestion)=id Yes then
LeftFoot(Flag)
else
RightFoot(Flag)
else
MessageBox(self.Handle,'今天在家不出门','提示',mb_ok or mb_iconInformation);
end;