[sonjeux]

Saludos, estoy programando en Delphi XE2, en Windows 7 64Bits, y no me funcionan ninguno de los 2 comandos fileexists y shellexecute. Probe de varias formas. El codigo que estoy usando es uno que vi aqui y no me funciono tampoco, me sale el mensaje file not found pero si existe lo comprobe manualmente, si alguien me podria decir por que no funciona, gracias.

Código Delphi [-]
var Archivo: string;
    errorcode: integer;
begin
    Archivo:=cxTextEdit6.Text;
   errorcode :=
   ShellExecute(0, 'open', pchar(Archivo), nil, nil, SW_NORMAL);
   case errorcode of
      2:showmessage('file not found');
      3:showmessage('path not found');
      5:showmessage('access denied');
      8:showmessage('not enough memory');
      32:showmessage('dynamic-link library not found');
      26:showmessage('sharing violation');
      27:showmessage('filename association incomplete or invalid');
      28:showmessage('DDE request timed out');
      29:showmessage('DDE transaction failed');
      30:showmessage('DDE busy');
      31:showmessage('no application associated with the given filename extension');
   end;

   //ShellExecute(0, nil, pchar(Archivo), '', '', SW_SHOWNORMAL);
end;