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

Var
 Form2:Tform2
Implementation
{$R*.dfm}
Procedure Eingang;
Begin
// hier werden die Daten von Anlage geholt
End;

procedure Tform2.Timer1Timer(Sender:tobject);
Begin
Eingang;
End;
End.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses
  classes;

type
  TMyThread = class(TThread)
    private
      { Private-Deklarationen }
    protected
      procedure Execute; override;
    end;

......


procedure TMyThread.Execute;
begin
  while not Self.Terminated do
  begin
    DoSomething();
    
  end;
end;					

1:
2:
3:
4:
5:
6:

  MyThread : TMyThread;

  ...

  MyThread := TMyThread.create(true / false);
  MyThread.Resume;					

1:
2:
3:
4:
5:
6:
7:

//Timer
var t: cardinal;
begin
  t:=GetTickCount;
  Eingabe;
  Form1.Caption:=inttostr(GetTickCount-t);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

//Timer
var t: cardinal;
begin
  Timer.Enabled:=False;
  t:=GetTickCount;
  Eingabe;
  Form1.Caption:=inttostr(GetTickCount-t);
  Timer.Enabled:=True;
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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,prodave;
type
  TMYThread=class(TThread)
      protected
      procedure Execute; Override;
      end;
  TForm2 = class(TForm)
    ende: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    Online: TButton;
    Offline: TButton;
    procedure endeClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure OnlineClick(Sender: TObject);
    procedure OfflineClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
uses pvar;
procedure Eingabe;
Var
Abbyte,Anzahl:integer;
Begin
 // Werte Holen
     Abbyte:=124;
     Anzahl:=1;
     Res_R:= load_tool(1, addr(sps_name),addr(sps_adr_table[0]));
      if Res_R=0 then
      E_field_read(Abbyte,Anzahl,RW_byte);
      Res_R:=Unload_Tool;
end;
//--------------------------------Werte holen
procedure Tmythread.Execute;
Begin
while not self.terminated do
begin
 Eingabe;
 Form2.Edit2.Text:=intToStr(RW_byte[0]);
 end;
end;
//---------------------------Erstmal ohne Timer
procedure TForm2.Timer1Timer(Sender: TObject);
Var t:cardinal;
begin
 { Timer1.Enabled:=False;
    t:=GetTickCount;
    Eingang;
    Form2.Edit2.Text:=intToStr(RW_byte[0]);
    Timer1.Enabled:=True;
    Edit1.Text:=intTostr(GetTickcount-t);    }
end;
//--------------------------Thread Aktivieren
procedure TForm2.OnlineClick(Sender: TObject);
Var
Thread: TmyThread;
begin
 Thread:=Tmythread.Create(True);
 Thread.Resume;  // ich weiß nicht was das hier macht?
 end;
//-------------------------Thread Beenden
procedure TForm2.OfflineClick(Sender: TObject);
Var Thread:TmyThread;
begin
  Thread:=Tmythread.Create(False);
  
end;
//------------------------Form schliessen
 procedure TForm2.endeClick(Sender: TObject);
 begin
 close;
 end;
end.