Hallo,
Delphi-Quellcode:
Function ChrToBin(_Chr: Char): String;
Var
i: Integer;
Begin
For i := SizeOf(_Chr) * 8 - 1 Downto 0 Do
Result := Format('%s%d', [Result, Byte((Ord(_Chr) And (1 Shl i)) <> 0)]);
End;
Edit: Für nen ganzen String musst Dir das dann halt zusammenpuzzlen.