TEdit Text "überschreiben"

[LoL]

Ihr habt das jetzt in den falschen Hals bekommen

Natürlich ist der String nicht Konstant wäre sonst ja auch einfach. Eher sowas:

Delphi-Quellcode:

ReadText
begin
  if bedingung then
    Result := IntToStr(StrToInt(Text) *2)
  else
    Result := Text;
end;

Ist wie gesagt nur ein Beispiel. Also ist die Ausgabe nicht konstant.

Hintergedanke ist folgende:
In diesem Edit sollen Temperaturen eingegeben werden. Die Temperatur die aber gelsesen werden soll, soll immer °C sein gleichzeitig aber soll im Edit die Temperatur stehen die der Benutzer auch eigegeben hat. Da ich immer die Temperatur über "Text" auslesen will, hab ich mir eben das überlegt das meine Frage war um mir die Arbeit zu erleichtern.
Oder hat jemand eine bessere Lösung?