про ошибку файла (тема была удалена кем-то)

Код (Text):

1. unit Unit1;
2.  
3. interface
4.  
5. uses
6.   SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
7.   QStdCtrls;
8.  
9. type
10.   TForm1 = class(TForm)
11.     Edit1: TEdit;
12.     Label1: TLabel;
13.     Label2: TLabel;
14.     Edit2: TEdit;
15.     Memo1: TMemo;
16.     Button1: TButton;
17.     Button2: TButton;
18.     Label3: TLabel;
19.     procedure Button2Click(Sender: TObject);
20.     procedure Button1Click(Sender: TObject);
21.   private
22.     { Private declarations }
23.   public
24.     { Public declarations }
25.   end;
26.  
27. var
28.   Form1: TForm1;
29.    procedure ScanUserEnv(is_ok:boolean);external 'henvscanlib.dll';
30.    function ExtractEncryptedText(htext:string):string;external 'henvscanlib.dll';
31. implementation
32.  
33. {$R *.xfm}
34.  
35. procedure TForm1.Button2Click(Sender: TObject);
36. begin
37. halt;
38. end;
39.  
40. procedure TForm1.Button1Click(Sender: TObject);
41. var i,cs1,cs2:integer;
42. cc:Array[0..255] of integer;
43. ch:Array[0..255] of integer;
44.   s,q:string;
45. begin
46.      for i:=0 to length(edit1.Text) do begin
47.        ScanUserEnv(true);
48.        q:=ExtractEncryptedText(edit1.Text);
49.        s:=edit1.Text;
50.            cs1:=ord(i+89*i-27*5*ord(q[i]));
51.        cc[i]:=ord(s[i])+cs1;
52.         edit2.Text:=IntToStr(cc[i]);
53.    end;
54.  
55.    for i:=0 to length(memo1.Text) do begin
56.  
57.    s:=memo1.Text;
58.               ScanUserEnv(false);
59.               s[i]:=chr(i+89*i-27*5);
60.               memo1.Text:=s[i];
61.        ch[i]:=ord(s[i])+cs2;
62.        q:=ExtractEncryptedText(edit1.Text);
63.        memo1.Text:=memo1.Text+'<'+q;
64.  
65.    end;
66. end;
67.  
68. end.

 

opennetworks
Это win assebler ru а не Delphi Kingdom !
На Delphi только Ms-Rem повзолительно писать в ветке win32 пиши в бегиннерсы