大人们，帮帮我啊，关于DELPHI程序代码的含义！谢了

Question

begin
if listbox1.ItemIndex=-1 then begin
  showmessage('未选择终端！');      
  exit;
 end;
if listbox1.ItemIndex<>-1 then begin
 s:=#$44+#$41;
 s:=s+#$01;
 s:=s+#$00;
 s:=s+chr(length(Memo1.Text) div 256)+chr(length(Memo1.Text) mod 256)+Memo1.Text;
 chk:=0;
 for n:=3 to length(s) do begin
   chk:=chk+byte(s[n]);
 end;
var
s:string;
begin
 s:=onlinezdid;
 listbox1.Items.Clear;
 repeat
  listbox1.Items.Add(copy(s,1,11));
  s:=copy(s,14,length(s)-13);
 until s=''
end;procedure Ttestfrm.Button3Click(Sender: TObject);
var
k:integer;
ss:pointer;
cnt:integer;
sss:pbytearray;
s:string;