Работа с Modbus RTU

procedure parser.Execute;
var
  counter : integer;
  buf : string;
begin
  while(not Terminated) do
  begin
    com.SendStr('$01M'#13#10); // Send some command to remote, for example - send DSC command for ADAM/ICPCON modules
    counter = 5;
    while (com.RxCount=0) and (counter>0) do
    begin
      sleep(50); // wait untill we've got the answer
      dec(counter);
    end;
    if (counter>0) then // we've got the answer, parse
    begin
       buf := com.ReceiveString; // receive the incoming string here from COM-port
       if (pos('4517',buf)>0) then inc(some_ext_counter); // indicate that we've received the answer
    end;
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    Memo1: TMemo;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  count1:word;//глобальная переменная для счета опроса
  StrList: TStringList;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  StrList:=TStringList.Create;
  StrList.Duplicates:=dupIgnore;
  //StrList.Sorted:=True;
  count1:=0;
  //Создается список, который стационарный, т.е. неизменный
  StrList.Add('команда 1');
  StrList.Add('команда 2');
  StrList.Add('команда 3');
  StrList.Add('команда 4');  
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=not timer1.Enabled;
count1:=0;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
StrList.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 StrList.Insert(0, 'СрочнаяКоманда1');
 count1:=0;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  StrList.Insert(0, 'СрочнаяКоманда2');
  //count1:=0;
  
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Add(StrList[count1]);//индикация переменных
  //Edit2.Text:=inttostr(count1);//индикация переменных
  Edit1.Text:=StrList[count1];
  count1:=count1+1;
  
   if StrList.Count>4 then
    begin StrList.Delete(0)  end;
   if count1>StrList.Count-1 then count1:=0;
end;
end.

var StrList: TStringList;
    count1: integer = 0;
    maxc: integer = 4;
    perv: integer;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled:= false;
 
 count1:= 0;
 maxc:= maxc+1;
 StrList.Insert(0, 'срочная команда-' + inttostr(maxc-perv));
 memo1.Lines.Assign(strlist);
 
 
 timer1.Enabled:= true
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 StrList:=TStringList.Create;
 StrList.Duplicates:=dupIgnore;
 
  //Создается список, который стационарный, т.е. неизменный
  StrList.Add('команда 1');
  StrList.Add('команда 2');
  StrList.Add('команда 3');
  StrList.Add('команда 4');
  perv:= strlist.Count;
 
  memo1.Lines.Assign(strlist);
end;
 
 
 
procedure SelLine(Memo: TMemo; Index: integer);
begin
  with Memo do
    begin
      SelStart := Perform(EM_LINEINDEX, Index, 0);
      SelLength := Length(Lines[Index]);
      SetFocus;
    end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SelLine(Memo1, count1);
 inc(count1);
 if count1>maxc-1 then count1:= 0;
 
 {
 выполняем извращения
 }
 
 // если выполнили 0-команду и кол-во команд > изначального списка
 if (count1=1) and (maxc>perv) then begin
  strlist.Delete(0);  memo1.Lines.Assign(strlist);
  maxc:= maxc-1;
  count1:= 0;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
S2:String; //строковая переменная для
p1,p2,p3,p4:integer;//переменные для формирования полного запроса при отправке
begin
  .....  
  set_smh(p1,p2,p3,p4); //Сформировавшийся запрос
   if (Otvet=0) and (zapros<3) then //в событии ответа Otvet:=1
  begin
  inc(zapros);  
  if zapros=3 then Form1.list.Lines.Add('----нет ответа от '+IntToStr(p1)+'----');
  exit;
  end else  if (Otvet=1)or (zapros=3) then
  begin
  transfer();  //процедура перехода на др.команду в списке команд
  end;
end;