1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

    if FileExists(ExtractFilePath(Application.ExeName) + '\Setup.ini') then
    begin
      S := Ini.ReadString('Serial', 'ID', '');
    {die Eingabe umwandeln}
      S2 := SerialX(Edit1.Text) + '+';
    {Überprüfen}
      if S=S2 then
        TabSheet3.Show
      else
        MessageDlg('Die eingegebene Seriennummer war nicht korrekt. Überprüfen Sie eventuell Groß- und Kleinschreibung', mtInformation, [mbOK], 0);
    end;                    

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

function TForm1.SerialX(S: String): String;
var
  I, N, N1, N2: Integer;
  S2: String;
begin
  S2 := '';
  if Length(S)>3 then
    For I := 1 to Length(S)-1 do
    begin
      N1 := Ord(S[I]);
      N2 := Ord(S[I+1]);
      N := Calc(I, N1, N2);    {Funktion kann nicht fehlschlagen}
      if (N2-N)>0 then
        S2 := S2 + Chr(N2-N)
      else
        S2 := S2 + Chr(N2+N);
      if (N1-N)>0 then
        S2 := S2 + Chr(N1-N)
      else
        S2 := S2 + Chr(N1+N);
    end;
  Result := S2;
end;                    

1:

  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '\Setup.ini');                    

1:
2:
3:
4:
5:
6:

TRY
  {DeinCode}
EXCEPT
  ON E : Exception DO
    ShowMessage(E.Message);
END;