unit WDGThrd1;

interface

uses
  Windows, SysUtils, Classes;

type
  WDGThread = class(TThread)
  private
	 Data: Byte;
  protected
	 procedure Execute; override;
  public
	 procedure UpdateWDGCaption;
  end;

implementation

uses Sample1u, WDG;

{ WDGThread }

procedure WDGThread.UpdateWDGCaption;
begin
	Form1.WDGLabel.Caption := IntToHex(Data, 2);
end;

procedure WDGThread.Execute;
var
	IRQ_Occurred : Boolean;
begin
	Data := 0;
	Synchronize(UpdateWDGCaption);

	IRQ_Occurred := WDGGetStatus(@Data);
	if (IRQ_Occurred = true) then
	begin
		Synchronize(UpdateWDGCaption);
	end;
end;

end.