Those had a lot of errors, please test before posting.
SCAR Code:
Function WhatIsUpText(var Item: String; Possible: TStringArray): Boolean;
var
h, highest, l: integer;
t: String;
begin
t := rs_getupText;
highest := High(Possible);
for h := 0 to highest do
if pos(Possible[h],t) <> 0 then
begin
inc(l);
Item := Possible[h];
end;
if l = 1 then
Result := True
else
begin
Result := False;
Item := '';
end;
end;
SCAR Code:
Function AllUpTexts(Texts: TStringArray): Boolean;
var
h, i, Many: integer;
t: String;
begin
t := rs_GetUpText;
h := high(Texts);
for i := 0 to h do
if pos(Texts[i], t) > 0 then inc(many);
if Many = length(Texts) then Result := true;
end;