function IntToBinStr(num: integer): string;
var
  i: integer;
begin
  for i := 0 to 3  do
    Result := IntToStr((num shr i) and  )+Result;
end;