procedure TForm1.CS1Error(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
 ShowMessage('Ошибка' +  IntToStr(ErrorCode));
 ErrorCode :=0;
 logs('Ошибка'+  IntToStr(ErrorCode));
end;

procedure TForm1.FormCreate(Sender: TObject);
 begin
 {Тут всяко разное для проги}
Sleep(500);

   CS1.Port := StrToInt(LabeledEdit2.text);///Порт
   CS1.Address :=LabeledEdit1.text;///IP адрес
   CS1.Active :=True;
   CS1.Open;

Sleep(100);
 CS1.Socket.SendText('$KE,PSW,SET,Jerome'#13#10);///Отправка пароля устройству
end;

procedure TAbstractSocket.Open;
begin
  Active := True;
end;

 try
  CS1.Port := StrToInt(LabeledEdit2.text);///Порт  
  CS1.Address :=LabeledEdit1.text;///IP адрес
  CS1.Open;
 except
  on E: Exception do
   if E is ESocketError then
    (E As ESocketError).Message //текст ошибки
  //в данном случае можно писать просто E.Message
 end;

   
     CS1.Active :=True;
   {CS1.Open;
    }

TForm1.FormCreate(Sender: TObject)
 1-Чтение конфигурации и настроек программы
 2-Проверка на повторный запуск программы 
 Sleep(500);
 3-Работа с сетью

 logs('Ошибка'+ IntToStr(ErrorCode)) ;

ErrorCode :=0;

ErrorEvent: TErrorEvent

type TErrorEvent = (eeGeneral, eeSend, eeReceive, eeConnect, eeDisconnect, eeAccept, eeLookup)

Case ErrorEvent Of
  eeGeneral: ShowMessage('Непонятная ошибка. Скорее всего сбой системы.'); 
  eeSend: ShowMessage('Ошибка при передаче данных.'); 
  eeReceive: ShowMessage('Ошибка при приёме данных.'); 
  eeConnect: ShowMessage('Ошибка при подключении к устройству.'); 
  eeDisconnect: ShowMessage('Ошибка при отключении от устройства.'); 
  eeAccept: ShowMessage('Ошибка получения данных.'); 
  eeLookup: ShowMessage('Ошибка при поиске устройства.');
End;

 CS1.Active :=True;
   {CS1.Open;
    }

logs('Ошибка'+ IntToStr(ErrorCode)) ;

procedure TForm1.logs(str:string);
var in_file: textFile;
    FileName,date,time: string;
begin
 FileName:='C:\Test\log.txt';
 assignFile(in_file, FileName);
 if not (FileExists(FileName)) then rewrite(in_file)
 else
   Append(in_file);
 date:=DateToStr(Now());
 time:=TimeToStr(Now());
 Write(in_file, date); 
 Write(in_file, chr(9));
 Write(in_file, time); 
 Write(in_file, chr(9));
 WriteLn(in_file, str);
 closeFile(in_file);
end;

CS1.Active :=True;