Hogyan irassam át delphiben tizes számrendszerből kettesbe a számokat?

procedure TForm1.Button1Click(Sender: TObject);

var

q,a,i,b:integer;

begin

image1.Canvas.FillRect(image1.ClientRect);

val(edit1.text,a,q);

begin

b:=a;

for i:=1 to 100 do

begin

a:= a div 2;

b:= a mod 2;

image1.Canvas.TextOut(50,50,inttostr(a));

end;

end;

end;

end.

Ez sikerült eddig de az eredmény nemigazán a legjobb szóval kérek mindenkit aki képes lenne megoldani a feladatot hogy hasonló formában küldjön visszajelzést.Köszönöm mindenkinek előre is