function GetFlag(a: string): Integer;
var
I: Integer;
begin
Result := 0;
for I := 0 to 3 - 1 do
begin
if a = '0' then
Result := Result or 1
else Result := Result or 2;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := GetFlag('3');
ShowMessage(IntToStr(I));
end;
