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

procedure TForm1.zaehlen(Sender: TObject);
begin
edit1.Text:=IntToStr(inp32($379));
if inp32($379)>(c) then p:=p+1;
c:=inp32($379);
edit2.Text:=inttostr(p);
if inp32($379)=127 then edit3.Text:='nicht verbunden';
if inp32($379)=111 then edit3.Text:='verbunden';
end;					

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

procedure TForm1.Zaehlen(Sender: TObject);
const  //Besser Konstanten deklarieren, ist übersichtlicher
  inp_Verbunden = 111;
  inp_NichtVerbunden = 127;
  InputPort = $379;  //Bin mir nicht ganz sicher, was das sein soll.. myGuess :D
begin
  Edit1.Text := IntToStr(inp32(InputPort));  //Wenn inp32 kein Aufruf sondern ein TypeCast ist, könntest du glaube ich auch die Konstante als inp32($379) deklarieren..
  if inp32(InputPort) > c then 
    p := p + 1;  //Wenn p ein Integer ist, nimm Inc()
  c := inp32(InputPort);
  Edit2.Text := IntToStr(p);
  if inp32(InputPort) = inp_Verbunden then 
    Edit3.Text := 'verbunden'  //warum kein Label statt eines Edits?
  else Edit3.Text := 'nicht verbunden';  //oder else if... und dann wieder im else einen Fehler auslösen.. dann wäre ein unerwarteter Messwert reingekommen
end;					

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

Begin
  Timer1.Enabled:=False;                    // Erneuten Timeraufruf verhindern      
  Neuwert:=inp32(InputPort); 
  If New_Input<>Old_Input then Set_My_Event; // Ablage mit neuem Wert vergleichen
  Timer1.Enabled:=True;                    // Timer wieder freigeben
End;					

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

TForm1.Set_My_Event;
Begin
  New_Time:=Now;        // New_Time Variable vom Typ TTimeStamp
  TimeFlag:=true;       // Merker für Zeitänderung setzen
  Old_InPut:=New_Input; // Neuen Wert in Ablage kopieren
end;					

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

Begin
  Timer2.Enabled:=False;  // aus Prinzip
  If TimeFlag then 
  begin
    Diff_Time:=New_Time - Old_Time;
    Edit1.Text:=FormatFloat('#0.0000',Diff_time); // kann sein, das es auch anders geht
    Timeflag:=False;
  end;
end;					

1:
2:
3:

Timer1.Enabled:=False;                    // Erneuten Timeraufruf verhindern      
  {...}  //vorher an- und auszuschalten brauchst du nicht, esseidenn es enthält ProcessMessages. Der Timer hat keinen eigenen Thread und Timer-Nachrichten werden demnach auch erst nach Ende der Prozedur verarbeitet.
  Timer1.Enabled:=True;					

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:

procedure UeberwacheInput;
var
  LetzterInput: Integer;  //letzter empfangener Input
begin
  repeat until Input = 127;
  LetzterInput := Input;
  repeat
    if Input <> LetzterInput then begin
      LetzterInput := Input;
      OnToggle(Now, LetzterInput);  //deine Notify-Prozedur, mit möglichen Parametern: Zeit und aktueller Input
    end;
    Application.ProcessMessages;
  until false;  //oder irgendeine Exit-Condition, bsp. Messzeit vorbei
//oder IMHO schneller, wenn es nur zwei Zustände gibt(bzw. einer der Zustände auch bekannt ist)
  repeat
    repeat 
      Application.ProcessMessages;
    until Input = 127;
    OnToggle(Now, 127);
    repeat 
      Application.ProcessMessages;
    until Input = 111;
    OnToggle(Now, 111);
  until false;
end;