function TP2KAPI.FlashCmd(Acmd: shortstring): shortstring;
var
  cmd: string;
  Cmd_temp: array[0..255] of char;
  i: byte;
  tmp: string;
  Cmd_Ans: array[0..1023] of char;
  xx: dword;

begin
{
вообще формат флеш-команды
02, 'COMMAND', [ 1E, 'ARGS', ] 03
}
  result:= '';
  cmd:= ACmd;
  if not TelStatus then exit;
  cmd_temp[0]:= #02;
  i:=1;
  repeat
    cmd_temp[i]:= cmd[i];
    i:=i+1;
  until i = length(cmd)+1;
  cmd_temp[i]:=#03;
  USB_WriteDataEx(@Cmd_temp, i+1,2, xFlashTimeOut);
//  Sleep(100);
  FillMemory(@Cmd_ans, 1024, 0);
  xx:= 1024;
  USB_ReadDataEx(@Cmd_ans, xx,2,xFlashTimeOut);
  i:=0;
  tmp:= '';
  repeat
    tmp:= tmp + cmd_ans[i];
    i:=i+1;
  until (cmd_ans[i]=#03) or (i>=128);
  result:= PChar(tmp);
end;