gibts nen EXOR befehl in delphi?

[mojo777]

es kam keine fehler meldung.
der compiler hat nur irgendwie den entrypoint nicht gecheckt...
der code sah so aus

Delphi-Quellcode:

if v1<>v2 then
  begin
  Result:=False;
  end;
Result:=True;

jetzt:
if v1 xor v2 then
  erg:=false else erg:=True;
Result:=erg;

grüße