[Страдалецъ]

Если название параметра не повторяется в файле, то можно так:

Код:

Type TMyData = record
         T,V,S: Integer;
        end;
 Var
     MyData: TMyDate;
     F: TextFile;
     S: String; 
begin
 AssignFile(F,'MyData.txt');
 Reaset(F);
 while not Eof(F)
 do begin
     ReadLn(F, S1);
     ReadLn(F, S2);
     if S1 = 'Температура' then MyData.T := StrToInt(S2);
     if S1 = 'Вентиляция' then MyData.V := StrToInt(S2);
     if S1 = 'Сигнализация' then MyData.S := StrToInt(S2);
     end; 
 CloseFile(F);
end;