¿Como Convertir StrToBinary?

[FGarcia]

Saludos y Feliz dia del niño!:p
Je eso fue para el niño que todos llevamos dentro (algunos muy muy muy adentro)
Pues eso, necesito una funcion para convertir una cadena de caracteres a su representativo binario, es decir que me convierta por ejemplo ":( " a su equivalente binario (1 y 0). Actualmente tengo esto:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

function StringToHex(s:string) : string;
var t : integer;
begin
result := '';
for t := 1 to length(s) do begin
if t = length(s) then
result := result + IntToHex(ord(s[t]),2)
else
result := result + IntToHex(ord(s[t]),2) + ' ';
end;
end;

function HexToInt(HexNum: string): LongInt;
begin
Result:=StrToInt(HexNum) ;
end;

function IntToBin ( value: LongInt; digits: integer ): string;
begin
result := StringOfChar ( '0', digits ) ;
while value > 0 do
begin
if ( value and 1 ) = 1 then
result [ digits ] := '1';
dec ( digits ) ;
value := value shr 1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToBin(HexToInt(StringTohex(Edit1.Text)), 7);
end;

lo cual me funciona pero el problema es convertir valores tales como el ":" cuya representacion Hexadecimal es 3A ya que me dice que no es un entero valido (lo cual es correcto) asi que ya no se con que proseguir, amen de que se me hace que es un codigo muy sucio. Si alguien me puede apoyar se lo agradezco.

P.D. En Mexico se celebra el 30 de Abril como "El Dia del Niño" no se si en otras latitudes tambien. Comenten por favor.

EDITO: la cadena es dos puntos, parentesis de apertura, espacio pero en el mensaje aparece un icono gestual. : (

[seoane]

Prueba con esta función:

function StrToBin(Str: string): string;
var
i,j,k: Integer;
begin
Result:= '';
for i:= 1 to Length(Str) do
begin
j:= Byte(Str[i]);
k:= 128;
while k > 0 do
begin
if j >= k then
begin
Result:= Result + '1';
j:= j - k;
end else
Result:= Result + '0';
k:= k shr 1;
end;
end;
end;


Por ejemplo:


ShowMessage(StrToBin(':( '));



Ahora volviendo a tu código:

// StrToInt puede convertir números decimales
Result:=StrToInt(HexNum) ;
// y hexadecimales, pero entonces hay que anteponer '$'
Result:=StrToInt('$' + HexNum) ;

[FGarcia]

Hola!
Disculpa la tardanza pero ya probe el codigo y si funciona ok, ya lo decia yo era un codigo muy sucio.

Gracias!