Brauche asm-Hilfe

[Illuminator-23-5]

hi leute!
ich versuch grad, 'nen Binärzähler zu proggen, der so schnell wie möglich ist... (in einer Konsolenanwendung)
Ich bin so weit gekommen:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b: string;
  bytes, i: integer;
begin
  a := '';
  b := '';
  readln(bytes);
  for i := 1 to bytes do begin
    a := a + '0';
    b := b + '1';
  end;
  //Ab hier wird die Zeit gestoppt
  writeln(a);
  while a <> b do begin
    i := bytes;
    while a[i] = '1' do begin
      a[i] := 0;
      dec(i);
    end;
    a[i] := '1':
  end;
  //Hier wird die Zeitmessung beenden
end.

Es geht relativ schnell, nur immer noch zu langsam, und da hab ich mir gedacht, könnte man einen Teil in assembler umwandeln. Kennt sich da jemand aus und kann/möchte mir Helfen?