[[Caral]]

Este es una copia del tuyo tal vez me indicas que falta en el uses:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StrUtils, Shellapi, StdCtrls;

type
  TForm1 = class(TForm)
    TxtCod: TEdit;
    BtPcAnywhere: TButton;
    procedure BtPcAnywhereClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtPcAnywhereClick(Sender: TObject);
var
  sinHandle1: THandle;
  tienda:string;
  searchResult : TSearchRec;
  codigo:string;
  tiendaAejecutar:string;
begin
  if FindFirst('C:\Documents and Settings\All Users\Datos de programa\Symantec\pcAnywhere\*.CHF', faAnyFile, searchResult) = 0 then   // si es o ha encontrado algo
  begin
    repeat
      Codigo:=AnsiMidStr(searchResult.Name, 1, 5);
      tienda:=AnsiMidStr(searchResult.Name, 6, 35);
      tiendaAejecutar:= Codigo+  tienda;
      If txtCod.Text= codigo then
        shellexecuteA(sinHandle1,'open',
             pansichar('C:\Documents and Settings\All Users\Datos de programa\Symantec\pcAnywhere\'+ tiendaAejecutar) ,nil,nil,sW_normal);
    until FindNext(searchResult) <> 0;
  end;
  findclose(searchResult);
  Form1.Enabled:=false;
  Form1.Enabled:=true;
end;

end.

Este es el error:

[Fatal Error] Unit1.pas(7): File not found: 'AnsiUtils.dcu'

Saludos