procedure TFileReadThread.UpdTemp1;
begin
  FMain.edTemp1.Clear;
  FMain.edTemp1.Text := Pr_ValTemp;
end;
 
procedure TFileReadThread.CLEAR_VALUE_VIDEO;  
begin
  Pr_ValGPU := '';
  Pr_ValTemp := '';
  Synchronize(UpdGPU0);
  Synchronize(UpdTemp0);
  Synchronize(UpdGPU1);
  Synchronize(UpdTemp1);
end;
 
procedure TFileReadThread.Execute;
var
  LFile: TStringList;
  w, LIndex, LIndex1, LNumGPU, L_Length: integer;
  q, LValue, LStringParams: string;
  LValueTrue: boolean;
begin
  while not Terminated do
  begin
    try
      CLEAR_VALUE_VIDEO;
      Pr_Status := 'File begin reading';
      Pr_Status_Color := clGreen;
      Synchronize(UpdStatus);
 
      LFile := TStringList.Create;
      LFile.LoadFromFile(PathFile);  
//q:=LFile.Strings[1];                                  
//w:=LFile.Count;
      L_Length := LFile.Count-1;
      LStringParams := '';
      LValueTrue := false;
      LValue := '';
      LNumGPU := 0;
 
      for LIndex := L_Length downto 0 do
        if Pos('GPU0', LFile.Strings[LIndex]) <> 0 then
        begin
          LStringParams := LFile.Strings[LIndex];
          for LIndex1 := 0 to length(LStringParams) do
          begin
            if (LStringParams[LIndex1] in ['0'..'9']) then
              LValue := LValue+LStringParams[LIndex1]
            else
              if ((LStringParams[LIndex1] = '.')
                or (LStringParams[LIndex1] = ','))
                and (LValue <> '') then
              begin
                LValue := LValue+'.';
                LValueTrue := true;
              end
              else 
              begin
                if (LStringParams[LIndex1] = ' ')
                  and (LValueTrue) then
                begin
                  if (FMain.edGPU0.Text = '')
                    and (LNumGPU = 0) then
                    begin
                      Pr_ValGPU := LValue;
                      Synchronize(UpdGPU0);   
                    end;
                  if (FMain.edGPU1.Text = '')
                    and (LNumGPU = 1) then
                    begin
                      Pr_ValGPU := LValue;
                      Synchronize(UpdGPU1);   
                    end;
                  inc(LNumGPU);  
                end  
                else LValueTrue := false;
                LValue := '';  
              end;
          end;  
          break;
        end;
 
      LValue := '';
      LNumGPU := 0;
      for LIndex := L_Length downto 0 do
        if Pos('GPU0 t=', LFile.Strings[LIndex]) <> 0 then
        begin
          LStringParams := LFile.Strings[LIndex];
          for LIndex1 := 0 to length(LStringParams) do
          begin
            if (LStringParams[LIndex1] in ['0'..'9']) then
              LValue := LValue+LStringParams[LIndex1]
            else
              begin
                if (LStringParams[LIndex1] = 'C') then
                begin
                  if (FMain.edTemp0.Text = '')
                    and (LNumGPU = 0) then
                    begin
                      Pr_ValTemp := LValue;
                      Synchronize(UpdTemp0);   
                    end;
                  if (FMain.edTemp1.Text = '')
                    and (LNumGPU = 1)  then
                    begin
                      Pr_ValTemp := LValue;
                      Synchronize(UpdTemp1);   
                    end;
                  inc(LNumGPU);  
                end  
                else LValueTrue := false;
                LValue := '';  
              end;
          end;  
          break;
        end;
 
        Pr_Status := 'File end reading';
        Pr_Status_Color := clGreen;
        Pr_Sleep := IntToStr(ASleep);
//        ASleep := ASleep*1000;
        Synchronize(UpdStatus);
 
        FreeAndNil(LFile);
    except
    on E: Exception do
      begin
        Pr_Status := 'Not access to file';
        Pr_Status_Color := clRed;
        Synchronize(UpdStatus);
        FreeAndNil(LFile);
      end
    end;
  end;  
end;

type
  TFileReadThread = class(TThread)
    private
    { Private declarations }
  protected
    Pr_Sleep, Pr_ValTemp0, Pr_ValTemp1, Pr_ValGPU0, Pr_ValGPU1, PathFile, Pr_Status: string;
    Pr_Status_Color: TColor;
    ASleep: integer;
    procedure Execute; override;
    procedure CLEAR_VALUE_VIDEO;
    procedure EDIT_VALUE_VIDEO;
    procedure UpdErrStatus;    
  public

    constructor Create(APathFile: String;
                       A_Sleep: integer);      
  end;