Ошибка: File not found CPortTypes.dcu

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CPort, ExtCtrls;
 
type
  TForm1 = class(TForm)
    editCommand: TEdit;
    editAnswer: TEdit;
    buttonOpen: TButton;
    buttonWrite: TButton;
    buttonClose: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    memoHistory: TMemo;
    ButtonClearHis: TButton;
    buttonsetting: TButton;
    ComPort: TComPort;
    buttonsend: TButton;
    ButtonExit: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Label2: TLabel;
    procedure ButtonClearHisClick(Sender: TObject);
    procedure buttonsettingClick(Sender: TObject);
    procedure buttonOpenClick(Sender: TObject);
    procedure buttonWriteClick(Sender: TObject);
    procedure buttonCloseClick(Sender: TObject);
    procedure buttonsendClick(Sender: TObject);
    procedure editCommandKeyPress(Sender: TObject; var Key: Char);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
    procedure ButtonExitClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// очистка истории выполненных команд
procedure TForm1.ButtonClearHisClick(Sender: TObject);
begin
memoHistory.Lines.Clear; // очистка истории выполненных команд
end;
 
// настройка параметром сом-порта
procedure TForm1.buttonsettingClick(Sender: TObject);
begin
  Comport.ShowSetupDialog;
  buttonOpen.Enabled := True;
end;
 
// открыть сом порт
procedure TForm1.buttonOpenClick(Sender: TObject);
begin
 
   ComPort.Open; // открыть сом порт
  if ComPort.Connected then
  memoHistory.Lines.Add('Порт открыть ('+comport.Port+') '+TimeToStr(Time)+'')
  else
  memoHistory.Lines.Add('Порт не открывается '+TimeToStr(Time)+'');
end;
 
//послать сигнал
procedure TForm1.buttonWriteClick(Sender: TObject);
var
  strWrite: string; // временная переменная ASCII последовательности
  arrBytes: array of Byte; // массив байт команды
  i: Integer;
begin
// проверка подключения сом-порта
  if ComPort.Connected=True then
  begin
//чтение команды из поля "Команда"
//Проверка строки на пустопу
  if (editCommand.Text <> '') then
  begin
     strWrite := editCommand.Text;
//преобразование последовательности ASCII в массив байт
  SetLength(arrBytes, Length(strWrite)+1);
  for i := Low(arrBytes) to High(arrBytes) do
    arrBytes[i] := Ord(strWrite[i + 1]);
  // формирование признака конца команды
  arrBytes[High(arrBytes)]:=$0D;
  // запсиь сформированной команды в СОМ-порт
    ComPort.Write(arrBytes[0],length(arrBytes));
    arrBytes := nil;
    memoHistory.Lines.Add('('+editcommand.Text+') '+TimeToStr(Time)+'');
   end
  else
     memoHistory.Lines.Add('Ошибка ввода: Данные не введены! '+TimeToStr(Time)+'');
  end
  else
  memoHistory.Lines.Add('Порт не открыть '+TimeToStr(Time)+'');
end;
 
// закрыть порт
procedure TForm1.buttonCloseClick(Sender: TObject);
begin
  ComPort.Close;      // закрыть порт
  memoHistory.Lines.Add('Порт закрыт. '+TimeToStr(Time)+'')   // выаодим данное сообщение в memoHistory
end;
 
procedure TForm1.buttonsendClick(Sender: TObject);
begin
// проверка соединения с сом протом
  if ComPort.Connected=True then   // если сом-порт соединен то
  begin
    ComPort.WriteStr(editCommand.Text+#13);
    memoHistory.Lines.Add('('+editcommand.Text+') '+TimeToStr(Time)+'');
  end
  else
  memoHistory.Lines.Add('Порт не открыть '+TimeToStr(Time)+''); // если не соединен выводит это сообщение
end;
 
// проверка поля ввода на допустимые символы
procedure TForm1.editCommandKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
      '0'..'9': ;                        // цифра
      #8: ;                             // клавиша <Back Space>
      #13: buttonWrite.Click;  // при нажатии <Enter> активируется кнопка "записать в порт" т.е. кликается кнопка
      'a'..'z','A'..'Z', '~', '+', '!', '`', '@', '#', '$', '%', '^', '&', '*', '(', ')', '_', '-', '=', '/', ',', '.', '<', '>', '?', '\', '|', '{', '}', '[', ']', ':', '"', ';': ;             //буквы и символы английского языка
 
   // остальные символы — запрещены
   else
      begin
         Key:=Chr(0); // символ не отображать
         Application.MessageBox(PChar('Данный символ не допустим!'),'Предупреждение!',MB_OK+MB_ICONWARNING);
      end;
   end;
end;
 
// получить ответ
 
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
 
var
  i: Integer;
  TmpStr: string;
  ReadBytes: array of Byte;
begin
  TmpStr := '';
  i := Low(ReadBytes);
  while (i < High(ReadBytes)) and (ReadBytes[i] <> $0D) do
  begin
    TmpStr := TmpStr + chr(ReadBytes[i]);
    inc(i);
  end;
  editAnswer.Text :=TmpStr;
  memoHistory.Lines.Add(TmpStr + ''+TimeToStr(Time)+'');
end;
 
// выходим из программы
procedure TForm1.ButtonExitClick(Sender: TObject);
begin
  Form1.Close;   // выход
end;
 
// устанавливаем время
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=TimeToStr(Time);
end;
 
//устанавливаем дату
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Label2.Caption:=DateToStr(Date);
end;
 
end.