procedure TLovingHpping.lovingCreate(Sender: TLove);
var you:lovingman;
begin
if she<>'love you '
then
you.banner:='don't let she looking you in the little hole';
you.motion:='go go go '+'fllower'+'money'+'romantic';
showmessage('your body');
end;
end.