CommandLineKeys.pas

// Запись ключей (-a, -b и т.п.) из аргументов командной строки в set of char
Program CommandLineKeys;
var
	keys: set of Char;
	s: String;
	i: Integer;
begin

keys := [];
// Разбор командной строки
for i := 1 to ParamCount do begin
	s := ParamStr(i);
	if (s[1] = '-') then begin
		Include(keys, s[2]);
	end;
end;

// Проверка ключей
if 'a' in keys then WriteLn('Key: -a');
if 'b' in keys then WriteLn('Key: -b');

end.