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

If radiogroup2.ItemIndex = 1 then
  begin
   
       Assignfile(mybinfile,'U:\Delphi\primzahlendatei\binär.bin');
       reset(mybinfile);
      z:=0 ;
    while not eof(mybinfile) do
    begin
          read(mybinfile,x);
          z:=z+1 ;
     end;
    closefile(mybinfile);
  end;					

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

if radiogroup1.itemindex = 1 then
      begin

          System.Assign(mybinFile,'U:\Delphi\primzahlendatei\binär.bin');
          Rewrite(mybinfile)      ;
          For i:=0 to anzahlzeilen-1 do
          begin
            val(memo1.Lines[i],e, Code);
            e:=-1*e;
            write(mybinfile,e)     ;
          end;
          System.Close(mybinfile);
       end;