Программа по обмену валюты

[Kamish]

Доброго времени суток всем! Прошу вашей помощи, так как в программировании практически не смыслю. Необходимо написать простую программу по обмену валюты, часть я сделал, но видимо что-то не так,так как программа работает не полностью. Выкладываю сюда код, скажите, в чем проблема! Заранее спасибо! Задание надо сделать к завтрашним 10ти утра.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit5: TEdit;
Label3: TLabel;
Edit6: TEdit;
Edit7: TEdit;
Label4: TLabel;
Label5: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
Kurs1,Kurs2,Summa:Real;
Cod:Integer;
Ed:String[9];
begin
Val(Edit1.Text,Kurs1,Cod);
Val(Edit2.Text,Kurs2,Cod);
Val(Edit3.Text,Summa,Cod);
If RadioButton2.Checked=True then
Summa:=summa*Kurs2
Else
Summa:=summa*Kurs1;
Str(Summa:9:2,Ed);
Edit4.Text:=ed;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
Kurs3,Kurs4,Summa:Real;
Cod:Integer;
Ed:String[9];
begin
Val(Edit6.Text,Kurs3,Cod);
Val(Edit7.Text,Kurs4,Cod);
Val(Edit5.Text,Summa,Cod);
If RadioButton2.Checked=True then
Summa:=summa*Kurs4
Else
Summa:=summa*Kurs3;
Str(Summa:9:2,Ed);
Edit4.Text:=ed;

end;

end.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
Var
Kurs1,Kurs2,Summa:Real;
Cod:Integer;
begin
 try
  Kurs1:=StrToFloat(Edit1.Text);
  Kurs2:=StrToFloat(Edit2.Text);
  Summa:=StrToFloat(Edit3.Text);
 except
  MessageBox(0,'Ошибка ввода','Некорректный ввод  даных',MB_ICONERROR   +MB_OK+MB_SYSTEMMODAL);
 end;
 If RadioButton2.Checked then
 Summa:=summa*Kurs2
 Else
 Summa:=summa*Kurs1;
 Edit4.Text:=FormatFloat('0.00',Summa)
end;

Для кнопки батон3 сделайте аналогично

procedure TForm3.Button1Click(Sender: TObject);
Var
Kurs3,Kurs4,Summa:Real;
begin
 try
  Kurs3:=StrToFloat(Edit6.Text);
  Kurs4:=StrToFloat(Edit7.Text);
  Summa:=StrToFloat(Edit5.Text);
 except
  MessageBox(0,'Ошибка ввода','Некорректный ввод  даных',MB_ICONERROR   +MB_OK+MB_SYSTEMMODAL);
 end;
 If RadioButton2.Checked then
 Summa:=summa*Kurs4
 Else
 Summa:=summa*Kurs3;
 Edit4.Text:=FormatFloat('0.00',Summa)
end;

и что сложного???

[Kamish]

Переделал по вашему варианту для баттон 1 и 3, работает только баттон 1, как и в моем случае. В этом вся проблема.Баттон 3 не хочет, не пойму в чем дело, видимо опять в чем то ошибаюсь. Напишите пожалуйста для баттон 3, может переменные надо какие другие задать или что то изменить по сравнению с баттон1?