[NumLock]

Код:

function DecToBin(Value: Integer): String;
var
  i: Integer;
begin
  Result:='';
  for i:=0 to 31 do
  begin
    Result:=IntToStr(Value and 1)+Result;
    Value:=Value shr 1;
  end;
end;