1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var CharSet : Set of Char;

procedure TForm1.Button1Click(Sender: TObject);
var s : String;
    c : Char;
begin
  CharSet:=CharSet+['e'];
  CharSet:=CharSet+['h','k'];
  s:='';
  for c:='a' to 'm' do
    if c in CharSet
      then s:=s+c;
  Edit1.Text:=s;    
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Charset:=['a','b','c','d'];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type
use= set of 1..81;
var
used:use;
c:char;
i:integer;
begin
used:=[];
  for i:= 1 to 81 do begin
    if field[i].text<> '' then begin
      if field[i].text[1] in ['1'..'9']  then begin

         used:=used+[i];
      end
      else ShowMessage('Bitte überprüfen sie ihre eingabe, Feld '+IntToStr(i)+' beinhaltet keine Zahl im Bereich 1 bis 9');
    end;
  end;
end;