Валютный калькулятор с запоминанием курса по датам и выбор курса по дате

[shaturaweb]

Привет всем!
Есть задание:
Валютный калькулятор: Пересчет денег из одной валюты в другую по курсу.
В более сложно варианте - с запоминанием курса по датам и выбор курса по дате.

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
float DollarsNum;
float RateValue;
float Result;

DollarsNum=StrToFloat(Dollars->Text);
RateValue=StrToFloat(Rate->Text);
Result=DollarsNum*RateValue;
Rubles->Text=FloatToStr(Result);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
float RublesNum;
float RateValue;
float Result;
RublesNum=StrToFloat(Rubles->Text);
RateValue=StrToFloat(Rate->Text);
Result=RublesNum/RateValue;
Dollars->Text=FloatToStr(Result);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
WinExec("about.exe", SW_RESTORE) ;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button4Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

Просьба помочь.... Не знаю, как данные выдернуть из календаря и вставить в окошко Курс (Rate). Данные по числам определенным загрузил в файл через календарь, код ниже, и вот из него хочу выдернуть

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int f;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

MonthCalendar1->ShowTodayCircle = false;
MonthCalendar1->Date = Now();
Button1->Enabled = false;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Edit1Change(TObject *Sender)
{
int Key;
if ( (Edit1->Text.Length() == 0 ) ||
( (Edit1->Text.Length() ==1) &&
(Edit1->Text[1] == '-') ) )
Button1->Enabled = false;
else
Button1->Enabled = true;
if (( Key >= '0') && (Key <= '9'))
return;
// десятичная точка (запятая)
if ( ( Key == '.') || (Key == ','))
{
Key = ' , ' ;
if ( Edit1->Text.Pos(',') != 0 )
Key = 0;
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString st;
st = MonthCalendar1->Date.DateString() + " " +
Edit1->Text + "\r\n";
if ( FileExists("rate.txt") )
f = FileOpen("rate.txt",fmOpenWrite);
else
f = FileCreate("rate.txt");
if ( f != -1 )
{
// файл открыт для записи
FileSeek(f,0,2); // установить указатель на конец
// файла
FileWrite(f,st.c_str(),st.Length());
FileClose(f);
Button1->Enabled = false;
}
else
{
// файл открыт для записи
FileSeek(f,0,2); // установить указатель на конец
// файла
FileWrite(f,st.c_str(),st.Length());
FileClose(f);
Button1->Enabled = false;
}
ShowMessage("Курс добавлен");
}


//---------------------------------------------------------------------------
void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)
{
Edit1->Text = ""; // очистить поле ввода курса
Edit1->SetFocus(); // установить курсор в поле ввода

}
//---------------------------------------------------------------------------

Буду благодарен...