>>798
あらかじめいっておきます。ネタです(w

if (条件) then
　Flag:=False
else
Flag:=True;

if Flag then
begin
　処理
end;