Tekst na kod binarny

jak zmienic tekst np:"costakiego" na kod binarny??

function ByteToBit(X:byte): string;
var
i,e:integer;
begin
  SetLength(result,8);
  Result:='00000000';
  i:=1;
  for e:= 1 to 8 do
  begin
    if (x and i)=i then result[9-e]:='1';
    i:=2*i;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
     Te:String;
begin
  te:=Edit1.Text;
  Edit1.Text:='';
  for i:=0 to Length(te) do  Edit1.Text:=Edit1.text+ByteToBit(Ord(te[i]));
end;

O to chodzi? [???]