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

function stringsplit(text: string; trennzeichen: integer): tstringlist;
var position: integer;
var wort: string;
begin

stringsplit:=TStringList.Create;
  for position:=1 to length(text) do begin
    if Ord(text[position])=trennzeichen then begin
      stringsplit.add(UpperCase(wort));
      wort:='';
      end;
    if Ord(text[position])<>trennzeichen then wort:=wort+text[position];
  end;
stringsplit.add(wort);
end;