Variablentypen bei ord() erzeugen Fehler

[KodeZwerg]

Zitat von Nox:

   filename:='C:\Users\Noah\Desktop\projekt1.exe';

Gib da vielleicht einen Namen an der gut ist und nicht den Namen einer .exe Datei.

[KodeZwerg]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  t: Textfile;
  NoahsFilename: String;
begin
// in dieser Zeile holen wir den verschluesselten String zurück
   dateistring := CryptFileToString(filename, StrToInt(Edit1.text));
   showmessage(dateistring);

// Noah's Speichern
   NoahsFilename := ExctractFilePath(ParamStr(0)) + 'Noah.txt'; // So landet Datei im Programm-Ordner der .exe Datei
   AssignFile(t, NoahsFilename); // Handle zum Ziel
   if not FileExists(NoahsFilename) then // hier frag ich ab ob datei bereits existiert oder nicht
     Rewrite(t) // hier erstelle ich eine neue falls noch keine da ist
   else
     Reset(t); // hier öffne ich vorhandene Datei
   WriteLn(t, dateistring); // hier schreib ich den String als Zeile
   CloseFile(t); // hier speicher ich alles und gebe Handle frei
end;

Viel Spass mit Update.