[RampKiller]

Помогите пожалуйсто!
Нужно сделать программку для вычисления пропорции (с исходниками, чтобы понять как). Если кто не знает, что такое пропорция, то вот, допустим, A/B=C/D, значит по пропорцие будет: B*C=A*D. Так вот, нужно чтобы ввел, допустим, A,B,C числа и посчиталось D число, и так, чтобы можно было все числа так расчитать, зная 3 числа.
Вроде легко, но у меня не получается. Нуб наверно
Заранее спасибо

Вот, попробовал. Но ошибки...:

Код:

var
a,b,c,d,t:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=strtofloat(edit4.Text);
if a='empty' then t:=t+1;
if b='empty' then t:=t+1;
if c='empty' then t:=t+1;
if d='empty' then t:=t+1;
if t>1 then
label2.caption:='Ошибка!';
if t=1 then begin
if a='empty' then
a:=(b*c)/d;
edit1.Text:=floattostr(a);
label2.caption:='Готово!';
if b='empty' then
a:=(a*d)/c;
edit1.Text:=floattostr(b);
label2.caption:='Готово!'';
if c='empty' then
a:=(a*d)/b;
edit1.Text:=floattostr(c);
label2.caption:='Готово!'';
if d='empty' then
a:=(b*c)/a;
edit1.Text:=floattostr(d);
label2.caption:='Готово!'';
end;
end;

end.