byte arr[256];
  ZeroMemory(&arr, 256);
  StrPCopy((char *)&arr,Edit1->Text);