В чем состоит ошибка?

[Lisёноk]

Здравствуйте. Написала программу по объектно-ориентированному программированию.

Код:

unit Microvoln;

interface

TYPE Tdir=(right,left);
     Tdir1=(gril, micro);

     TP=procedure of object;
     Tmicrovoln=CLASS

private

fPower:real; //ìîùíîñòü
fturn:Tdir; //ïîâîðîò äèñêà â ìèêðîâîëíîâêå
p:TP;
fonoff:boolean; //âêëþ÷åí,âûêëþ÷åí
ftemperature:real; //òåìïåðàòóðà
frejim :Tdir1; //ðåæèì ìèêðîâîëíîâîé ïå÷è

FUNCTION GetPower:REAL;

PROCEDURE TM(newTM:real); //ñìåíà òåìïåðàòóðû
FUNCTION GetTM:real;

PROCEDURE DR(newd:TDir); //ñìåíà íàïðàâëåíèÿ ïîâîðîòà äèñêà â ïå÷è
FUNCTION Getdir:Tdir;

FUNCTION GetOnoff:boolean;

FUNCTION GetDIR1: TDIR1;
PROCEDURE DR1(newd1:TDir1); //ñìåíà ðåæèìà

public

property Power:real read GetPower;
property temperature:real read GetTM WRITE TM;
property Turn:Tdir read Getdir write DR;
property onoff:boolean read GetOnoff;
property rejim:TDir1 read Getdir1 write DR1;
PROCEDURE Start; { çàïóñê }
PROCEDURE Stop; { îñòàíîâêà }
CONSTRUCTOR Create(PP:TP);
end;
implementation

uses windows;

//*************

CONSTRUCTOR TMicrovoln.Create(PP:TP);
begin
INHERITED Create;
fPower:=0;
fturn:=right;
p:=pp;
frejim:=gril;
fonoff:=false;
ftemperature:=0;

end;

//*************

PROCEDURE TMicrovoln.DR1(newd1:TDir1); //ñìåíà ðåæèìà
VAR oldftemperature:real;
BEGIN
IF (ftemperature=0) or (frejim=newd1) THEN
EXIT;
oldftemperature:=oldftemperature; //çàïîìíèëè òåêóùóþ òåìïåðàòóðó
TM(0); //îñòàíîâèëèñü
frejim:=newd1;
TM(oldftemperature) //óñòàíîâèëè ïðåæíåå çíà÷åíèå òåìïåðàòóðû
END;

//*************

FUNCTION TMicrovoln.Getdir1:Tdir1;
begin
result:=frejim
end;

//*************

FUNCTION TMicrovoln.GetPower:REAL;
begin
if fonoff then
Result:=temperature*1.01/100
else
Result:=0
end;

//*************

PROCEDURE TMicrovoln.TM(newTM:real); //ñìåíà òåìïåðàòóðû
VAR i:integer;
    s:INTEGER;
BEGIN
IF ftemperature-newTM>0 THEN
s:=-1
ELSE
s:=1;
FOR i:=1 TO ABS (ftemperature-newTM) DO
BEGIN
ftemperature:=ftemperature+s;
Sleep(70);
fPower:=GetPower;
p;
END
END;

//*************

FUNCTION TMicrovoln.GetTM:real;
begin
result:=ftemperature
end;

//*************

PROCEDURE TMicrovoln.DR(newd:TDir); //ñìåíà íàïðàâëåíèÿ ïîâîðîòà
VAR oldtemperature:real;
BEGIN
IF (ftemperature=0) or (fturn=newd) THEN
EXIT;
oldtemperature:=ftemperature; //çàïîìíèëè òåêóùóþ òåìïåðàòóðó
TM(0); //îñòàíîâèëèñü
fturn:=newd;
TM(oldtemperature) //óñòàíîâèëè ïðåæíåå çíà÷åíèå òåìïåðàòóðû
END;

//*************

FUNCTION TMicrovoln.Getdir:Tdir;
begin
result:=fturn
end;

//*************

FUNCTION TMicrovoln.GetOnoff:boolean;
begin
result:=fonoff
end;

//*************

PROCEDURE TMicrovoln.Start;
BEGIN
fonoff:=true;
TM(100)
END;

//*************

PROCEDURE TMicrovoln.Stop;
BEGIN
fonoff:=false;
TM(0);
p
END;

//*************

end.

В строчке

FOR i:=1 TO ABS (ftemperature-newTM) DO

выдает ошибку.
Пишет

[Warning] Microvoln.pas(69): Variable 'oldftemperature' might not have been initialized

Что необходимо исправить?

[NikLik]

Это не ошибка, а предупреждение.
А предупреждают вас о том, что значение переменной "oldftemperature" может быть не задано.

[Lisёноk]

И что тогда делать?
Просто программа не компилируется из-за этого предупреждение.

[NikLik]

Попробуйте:

PROCEDURE TMicrovoln.DR1(newd1:TDir1); //ñìåíà ðåæèìà
VAR oldftemperature:real;
BEGIN
IF (ftemperature=0) or (frejim=newd1) THEN
EXIT;
oldftemperature := 0;
//oldftemperature:=oldftemperature; значение этой строки мне неясно.
TM(0);
frejim:=newd1;
TM(oldftemperature)
END;