Taschenrechner Programmieren

[Excalibur]

ich post die Frage einfach mal hier rein
ich versuche im mom ein Prog zum Umwandeln von zB Meter in Fuß/Meter in CM/etc...
Aber da ja bei Groß/Kleinbuchstaben unterschieden wird sieht das ganze jetzt so aus (siehe unten)
normal müsste das doch mit lower case gehen?!
If (lowercase(Einheit)='cm') and (lowercase(Umwandeln)='m') then.....

Delphi-Quellcode:

var Eingabe, Ergebnis : real;
Einheit, Einheitneu:string;
begin
Eingabe:=strtoint(Edit1.text);
Einheit:=(Edit2.Text);
EInheitneu:=Edit3.Text;
If (Einheit='cm') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='CM') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='Cm') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='cM') and (einheitneu='m')

Is da irgendwo ein Fehler drin?
Mfg, Excalibur