Conversion décimal en binaire par divisions successives

procedure TForm1.Button1Click(Sender: TObject);

var N, I, R : Integer;
S, Binaire : String;

begin

N := StrToInt(Edit1.Text);

S := '';

while N > 0 do begin
R := (N - ((N div 2) * 2));
S := S + IntToStr(R);
{ La variable chaine S assemble les restes de
la division du debut à la fin de la division }
N := N div 2;
end;

Binaire := '';

{ On inverse l'ordre des
restes de la fin au debut }
for I := Length(S) downto 1 do
Binaire := Binaire + S[I];

Edit2.Text := Binaire;

end;