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

if OpenDialog1.Execute then
  begin
   AssignFile(text_datei, 'tbwn1343.sac');
   Reset(text_datei);
    if not((IOResult = 0) and (openDialog1.FileName <> '')) then
     begin
      ShowMessage('Es konnte keine Datei geladen werden!');
      Application.Terminate;
     end;
  end;

 readln(text_datei, Buffer);
 MyString := Buffer;

 If MyString <> 'Name : mehmeh' then
  begin
   ShowMessage('Achtung!' + #13 + 'Falsche Datei oder' + #13 + 'Datei wurde in Zeile 1 manipuliert!');
   application.Terminate;
  end;					

1:
2:

var
  Buffer: array[0..12] of Char;					

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

uses
  Classes;

var
  xFile1: TMemoryStream;
  xFile2: TMemoryStream;

begin
  xFile1 := TMemoryStream.Create;
  xFile1.LoadFromFile('datei1.ext');
  xFile2 := TMemoryStream.Create;
  xFile2.LoadFromFile('datei2.exe');
  if CompareMem(xFile1.Memory, xFile2.Memory) <> 0 then
    ShowMessage('dateien sind unterschiedlich');
  FreeAndNil(xFile1);
  FreeAndNil(xFile2);
end;