¿Como Convertir StrToBinary?
 

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:

Código Delphi [-]
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. : (

Prueba con esta función:

Código Delphi [-]
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:

Código Delphi [-]

ShowMessage(StrToBin(':( '));

Ahora volviendo a tu código:

Código Delphi [-]
// StrToInt puede convertir números decimales
Result:=StrToInt(HexNum) ;
// y hexadecimales, pero entonces hay que anteponer '$'
Result:=StrToInt('$' + HexNum) ;

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

Gracias!