Conexión USB con celular!

[Alan_B]

Perdón por el doble post, no pude editar el anterior... Intenté con la siguiente forma

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:= RWUSB('1E034D006F007400', 10);
if USB.USBOpenDriver('\\\USB#VID_0C44&PID_0022#5&17C28CDB&0&3#{9d7debbc-c85d-11d1-9eb4-006008c3a19a}') = True then
memo1.Lines.Add('Phone found!') else
memo1.lines.Add('Phone not found!');
end;

end.

Arrojandome los mismos errores antes mencionados... Probe de la siguiente y compila, pero sin resultados exitosos a la hora de lograr conexion...

Código Delphi [-]
  USBPORT:= CreateFile('\\?\USB1', GENERIC_WRITE or GENERIC_READ, FILE_SHARE_WRITE or FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED OR FILE_ATTRIBUTE_NORMAL, 0);

Copie el device path reemplazando "USB1", pero sin exito como mencioné!!!
Sigo probando, si alguien me sigue ayudando soy feliz!!!

Alan_B!