Ausdrücke vergleichen

[Aphton]

Delphi-Quellcode:

function komischeBedingung(): Boolean;
var
  i: Integer;
  ABCD: Array[0..3] of Boolean;
begin
  ABCD[0] := Edit1.Text;
  ABCD[1] := Edit2.Text;
  ABCD[2] := Edit3.Text;
  ABCD[3] := Edit4.Text;
  Result := False;  // annahme: min eins nicht enthalten oder alle leer
  for i := 0 to 3 do
    if ABCD[i] <> '' then
    begin
      Result := True;  // min 1.
      if Pos(ABCD[i], XString) = 0 then
      begin
        Result := False; // nicht alle existierende enthalten
        break;
      end;
    end; 
end;

Btw. kleine Anmerkung zu deiner Programmiersyntax-rechtschreibung:
== existiert in Delphi nicht
Pos liefert 0 zurück, falls substring nicht gefunden werden konnte und nicht -1