code:

---

var
InfoKalor,InfoPr,InfoDom:PChar;
s,s1,s2:String;
begin
InfoKalor:=Client.RequestData(Chanel.Text);
InfoPr:=Client.RequestData(Edit1.Text);
InfoDom:=Client.RequestData(Edit2.Text);
s:=StrPas(InfoKalor); s1:=StrPas(InfoPr); s2:=StrPas(InfoDom);
WriteLn(DataFile,TimeToStr(Now),' ',S,' ',S1,' ',S2);
end; 

---

code:

---

 
If not Client.SetLink('RTM1','Get') or not Client.OpenLink 

// НОВАЯ ПРОЦЕДУРА 
Procedure RequestTMData; 
var 
   InfoKalor,InfoPr,InfoDom:PChar; 
   s,s1,s2:String; 
   endoftimer:boolean; 
begin 
   InfoKalor:=Client.RequestData(Chanel.Text); 
   InfoPr:=Client.RequestData(Edit1.Text); 
   InfoDom:=Client.RequestData(Edit2.Text); 
   s:=StrPas(InfoKalor); s1:=StrPas(InfoPr); s2:=StrPas(InfoDom); 
   WriteLn(DataFile,TimeToStr(Now),' ',S,' ',S1,' ',S2); 
   endoftimer:=true; 
end; 

//ОСНОВНАЯ ПРОГРАММА - ОБРАБОТКА КНОПКИ "СВЯЗЬ": 
begin 
    Button1.Enabled:=False; //Запрет нажатия кнопки "Связь" 
    AssignFile(DataFile,'Chanel.txt'); 
    Rewrite(DataFile);//Открытие файла для записи запрашиваемых данных 
    endoftimer:=true; 
    Timer1.Enabled:=True;//Запуск таймера 
end 


//ОБРАБОТЧИК СОБЫТИЙ OnTimer: 
   If endoftimer then 
     begin 
        endoftimer:=false; 
        RequestTMData; 
     end; 
end; 
 

---