[Decoding]

А в help ломало заглянуть?

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  f1: TextFile;
  n: string;
  i: integer;
begin
   n := ExtractFilePath( ParamStr( 0 ) );
   n := Concat( n, 'SYS.db' );
   if not FileExists( n ) then
   begin
      i := FileCreate( n );
      FileClose( i );
   end;
   AssignFile( f1, n );
   Reset( f1 );
end;