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

type troulette=record
  Vorname:string;
  Name:string;
  Punkte:string;
  end;

var
  Form4: TForm4;
  roulette:troulette;
  liste:array[1..10]of troulette;
  f: file of troulette;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

type
  TUserRecord = record
    a, b, c, d, e: string[255];
  end;

type
  TStatus = record
    Registered: boolean;
    SOperator: boolean;
    Serveradmin: boolean;
  end;

type
  TUser = record
    Status: TStatus;
    UserName: string[255];
    Passwort: string[255];
  end;

procedure TForm1.SaveUser(User: TUser);
var
  f: File of TUserRecord;
  i: integer;
  a: TUserRecord;
begin
  a.a:=User.UserName;
  a.b:=User.Passwort;
  a.c:=BoolToStr(User.Status.Registered);
  a.d:=BoolToStr(User.Status.SOperator);
  a.e:=BoolToStr(User.Status.Serveradmin);
  try
    AssignFile(f, ExeDir+'user\'+User.UserName+'.dat');
    Reset(f);
    write(f, a);
    CloseFile(f);
  except
  end;
end;