function TP2KAPI.Switch2Flash: boolean;
var
  Send_null:dword;
  Recv_null:dword;
  Recv_size:word;
  Recv_size2:dword;
  RecvPtr:Pointer;
  pData: PTCIPacket05;

begin
  result:= false;
  send_null:=0;
  RecvPtr:=@Recv_null;
  if not TelStatus or (HDev <=0) then exit;
  Recv_Size:=0;
  Recv_size2:=0;
  New(pData);
  FillTCIFSACStructEx(0, $00D, pData);
  if iP2KCF = 0 then result:= SendCommandZ ($00D, @Send_null, 0, @RecvPtr, Recv_Size)
                else result:= SendCommand05($00D, pData, 0, @RecvPtr, Recv_Size2, xP2KTimeOut);
  Dispose(pData); pData:= nil;              
  sleep(1000);
end;