помогите найти ошибку

[programming]

Язык программирования Delphi. Программа должна считать площадь и периметр прямоугольника. Но получается либо площадь, либо периметр(((
помогите найти ошибку в коде:

procedure TForm1.CalcButtonClick(Sender: TObject);
var a,b,c,d: real;
s: string; code: integer;
begin
val(Edit1.Text,a,code);
val(Edit2.Text,b,code);c:=a*b; d:=(a+b)*2;
str(c:-10:4,s);
Label5.Caption:=s;
Label7.Caption:=s;
end;

собственно за остальную часть программы я спокойна. но эта вызывает сомнения