Delphi de hesap makinesi odevim var ve cok fazla delphi bilmiyorum lutfen yardım edin !!

Toplama işlemini yaptım hic bir sorun yok ama cıkarma, carpma ve bolme olmuyor. Kullandığım kodlar bunlar:

toplama:

islem:=1;
Sonuc := Sonuc + StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(Sonuc);
SayiGirildi:=1;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;


cıkarma:

islem:=2;
Sonuc := Sonuc - StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(Sonuc);
SayiGirildi:=1;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;


carpma:

islem:=3;
Sonuc := Sonuc * StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(Sonuc);
SayiGirildi:=1;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;


bolme:

islem:=4;
Sonuc := Sonuc / StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(Sonuc);
SayiGirildi:=1;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;


Bu kodları yazdığımda hata vermiyor ama işlemleri yanlış yapıyor. cıkarma işleminde mesala 8-3 girdiğimde -11 yazıyor sonucu. yani ikisini toplayıp eksiyle carpıyor. carpma ve bolme işleminde de sonuc hep sıfır oluyor.

Doğru kodları verebilirseniz sevinirm. Cok Acil !!

Bir de editteki sayılar solda cıkıyor, sayıları klasik hesap makinelerindeki gibi nasıl sağa dayalı yazdırabilirim.
__________________