st6:=st6+ch;

perev1016(inttostr(ord(ch)),st3);

perev162(st3,st3);

st4:=st4+st3;

kol:=0;

for k:=1 to length(st3) do

begin

if st3[k]='1' then kol:=kol+1;

if kol=6 then begin insert('0',st3,k);kol:=0;end

end;

i:=i+1;

st5:=st5+st3;

end;

memo1.Lines.Clear;

memo1.Lines.Add(st4);

//closefile(f);

st5:=st5+'000000000000000001111110';

RichEdit1.Lines.Add(st5);

RadioGroup2.ItemIndex:=0;

edit3.Text:='00000000';

delay(2000);

//////

form2.RadioGroup1.ItemIndex:=0;

form2.RadioGroup2.ItemIndex:=0;

form2.memo1.Lines.Clear;

form2.memo1.Lines.Add(st5);

form2.Show;

delay(2000);

form2.Memo2.Lines.Clear;

form2.Memo2.Lines.Add(st4);

form2.RadioGroup1.itemindex:=0;

form2.RadioGroup2.ItemIndex:=0;

delay(2000);

form2.Memo3.Lines.Add(st6);

form2.RadioGroup1.itemindex:=0;

form2.RadioGroup2.ItemIndex:=0;

delay(2000);

form2.Hide;

end;

closefile(f);

//ClientSocket1.Socket.SendText('#End');

MessageDlg('Передача данных закончилась',mtInformation,[mbOk],0);

end

else

MessageDlg('Введите информацию',mtError,[mbOk],0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

kl:=false;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

halt;

end;

end.