[assembly: Debuggable(False, False)]

[assembly: Debuggable(True, False)]

// Aucune information de debbugage
{$A-,B-,C+,D-,E-,F-,G+,H+,I+,J-,K-,L-,M-,N+,O+,P+,Q+,R+,S-,T-,U-,V+,W-,X+,Y-,Z1}
{
C+ = Directives d'assertion
D+ = Informations de débogage
Y+ = Déclaration de symboles et informations de référence croisée.
}

program DebugAttribut;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  System.Diagnostics;

[assembly : Debuggable(False, False)]

function QueryPerformanceCounter(out lpPerformanceCount: Int64):LongBool; external 'kernel32.dll';

var StartCount, EndCount: Int64;
    i, j, k: Integer;
begin
 QueryPerformanceCounter(StartCount);
 i := 0;
 while i < 1000000 do
  begin
   k := ((i*2)+2);
   i := k div 2;
   dec(i);
   j := i;
   inc(j);
   i := j;
  end;
 QueryPerformanceCounter(EndCount);
 Writeln(Convert.ToString(EndCount-StartCount));
 Readln;
end.

@echo off
 rem Fichier MakeSN.cmd
 rem Crée un nom fort pour un assembly en utilisant le nom du fichier projet en cours
 rem Lignes à insérer dans le menu Outils :
 
  rem Titre      : Strong Name
  rem Programme  : C:\WINDOWS\system32\cmd.exe
  rem Répertoire : C:\WINDOWS\system32
  rem Paramètres : /K "VotrePath\MakeSN.cmd" $Exename
  rem Modifier le nom de répertoire.
 
 rem Dans le batch %1 correspond à $Exename
 rem %NetSamplePath% pointe sur le chemin du SDK .NET, utilisé Call Sdkvars.cmd
 rem Il est préférable de déclarer la variable d'environnement
 rem %NetSamplePath% dans la fenêtre variable d'environnement de l'onglet Avancé des propriétés Système.

For /F "tokens=*" %%I in  ('Echo %1') do "%NetSamplePath%Bin\sn.exe" -k "%%~dpnI.snk"
if errorlevel 1 goto Erreur
if errorlevel 0 goto Fin
:Erreur
Echo.
 rem génération en OEM
Title Erreur de g,n,ration de nom fort.
Echo Erreur de g,n,ration de nom fort.
pause
:Fin
 rem Termine le shell
Exit

...
[assembly: AssemblyDelaySign(False)]
[assembly: AssemblyKeyFile('FullPath\VotreFichierDeClé')]
[assembly: AssemblyKeyName('votreClé')]
...

procedure TWinForm.btnConvert_Click(sender: System.Object; e: System.EventArgs);
begin
  rtbDelphiCode.Text := BabelCode.Create.CSharpToDelphi(rtbCSharpCode.Text);
end;