Convert decimals to binary

The following function converts decimals to binary:

function TForm1.DecToBinStr(N: Integer): string;
var
  S: string;
  i: Integer;
  Negative: Boolean;
begin
  if N