Перевод с Делфи

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OoMisc, AdPort, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Port1: TApdComPort;
    Timer1: TTimer;
    Timer2: TTimer;
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button2: TButton;
    Edit6: TEdit;
        function KSUM(var S: String): String;
    procedure Port1TriggerAvail(CP: TObject; Count: Word);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  S, st:string;
  i,j, Tim1, Err1:integer;
  Canal:integer;
implementation
 
{$R *.DFM}
function TForm1.KSUM(var S: String): String;
var
  i, l: Integer;
  KS: Word;
  SS: String;
begin
  KS:=65535;
  for i:=2 to Length(S) do
  begin
    KS := KS xor Ord(S[i]);
    for l:=1 to 8 do
     if (KS div 2)*2<>KS then KS := (KS div 2) xor 40961
     else KS := (KS div 2);
  end;
  Str(KS, SS); { Преобразование KS в текстовый вид }
  KSUM := SS;
end;
 
 
procedure TForm1.Port1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
  C : Char;
begin
  for I := 1 to Count do begin
    C := Port1.GetChar;
    case C of
      #0..#12 : {Don't display} ;
      else begin
                //memo1.Lines.Add(inttoSTR(ORD(c)));
                S := S + C;
                //edit1.Text:=Edit1.Text+inttoSTR(ORD(c))+' ';
 
            end;
    end;
  // memo2.Lines.Add(s);
  end;
end;
 
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Tim1:=Tim1+1;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
Var
  s1,s2,CheckS:string;
  k,k1:integer;
begin
  Edit1.Text:=IntToStr(Canal);
  Edit2.Text:=IntToStr(Tim1);
  Edit4.Text:=S;
 
 
  if Timer1.Enabled=false then begin
                Port1.Open:=false;
                s:='';
                St := ':1;1;'+IntToStr(Canal)+';';        { Пример исходной строки без контр.суммы }
                Port1.Open:=true;
                St := St+KSUM(St)+#13;
                port1.PutString(st);
                Edit3.Text:=St;
                  Tim1:=0;
                Timer1.Enabled:=true;
                                end;
 
 
    i:=length(s); // Длина полученной посылки
    j:=length(st);
    if (j< i) then begin
                      if (s[i]=#13) then begin
                                         s1:='';
                                         CheckS:='';
                                         for k:=j+2 to i do if s[k]=';' then k1:=k;
                                         for k:=j+2 to k1 do s1:=s1+s[k];
                                         for k:=k1+1 to i-1 do CheckS:=CheckS+s[k];
                                         if (KSUM(S1)=CheckS) then begin
                                                                     s2:='';
                                                                     for k:=4 to length(s1)-1 do s2:=s2+s1[k];
                                                                     ListBox1.Items.Strings[Canal]:=S2;
                                                                     end    //if (KSUM(S1)=CheckS)
                                                              else ListBox1.Items.Strings[Canal]:='Error Check Sum';
 
                                         Timer1.Enabled:=false;
                                         Canal:=Canal+1;
                                         if Canal>5 then Canal:=0;
 
                                          end   // if (s[i]=#13)
                     end;        //if (j< i) then begin
      if (Tim1>10) then begin
                        ListBox1.Items.Strings[Canal]:='Error';
                        Canal:=Canal+1;
                        if Canal>5 then Canal:=0;
                        Timer1.Enabled:=false;
                         end;//if (Tim1>100)
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Canal:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Timer2.Enabled:=False;
Port1.Open:=false;
Port1.ComNumber:=StrToInt(Edit5.Text);
Port1.Baud:=StrToInt(Edit6.Text);
Port1.Open:=True;
Timer2.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Port1.Open:=true;
Timer2.Enabled:=true;
end;
 
end.