1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Ende: TButton;
    lesen: TButton;
    procedure EndeClick(Sender: TObject);
    procedure lesenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.EndeClick(Sender: TObject);
begin
close;
end;
procedure TForm1.lesenClick(Sender: TObject);
begin
Form2.show;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

unit pvar;
 interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Var
  //-------------------------------------SPS
  sps_adr_table: Array[0..15] of byte;
  SPS_name:Array[0..256] of Char;
  RW_Byte:Array[0..256] of byte;
  RW_Word:Array[0..512] of word;
  Res_R,Res_w:longint;
  amount: longint;
  m:integer;
 implementation

  Begin
     Sps_adr_table[0]:=2;
     Sps_adr_table[1]:=0;
     Sps_adr_table[2]:=2;
     Sps_adr_table[3]:=0;
     Sps_adr_table[4]:=0;
     Strcopy(sps_name,'S7ONLINE');
     for M:=0 to 512 do RW_byte[M]:=0;
     M:=0;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
....
.... 
RW_Byte:Array[0..256] of byte; //256 (257)
.....  
implementation
Begin     
......
......
......
 for M := 0 to 512 do   //512 (513)?
     RW_byte[M]:=0;

 M := 0;
end.					

1:

E_field_read(Abbyte,Anzahl,RW_byte);					

1:
2:

Timer1.Enabled:= True; // aktivieren
Timer1.Enabled:= False; // deaktivieren