The following function converts decimals to binary: function TForm1.DecToBinStr(N: Integer): string; var S: string; i: Integer; Negative: Boolean; begin if N