boolesche Formel ausrechnen

[Nothine]

ich weiß das sieht bescheuert aus aber folgendes konstrukt funktioniert:

Delphi-Quellcode:

function CheckTrue(const A,B,C,D): Boolean;
const C2: Integer = 3;
      D2: string = 'tee';
begin
  Result := (Pointer(A) = Pointer(B)) and // (A = B) and ((C <> 3) or (D = 'tee'))
            ((Pointer(C) <> Pointer(C2)) or (Pointer(D) = Pointer(D2)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var A,B,D: string; // man kommt leider nich drumrum es vorher
    C: Integer;    // in eine variable zu schreiben
const F: array[Boolean] of string[5] = ('False','True'); //nur zur anzeige
begin
  A := 'a'; B := 'a'; C := 5; D := 'tee'; //initialisieren
  Edit1.Text := F[CheckTrue(A,B,C,D)]; //das verblüffende ergebnis sehen :-D
end;

vielleicht hilft dir das ja weiter, wenn du es noch allgemeiner umschreiben willst