http://thunder.prohosting.com/~cbdn/anon.htm

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->Icon->LoadFromFile("c:\\"
"program files\\common files\\borland shared\\"
"images\\icons\\finance.ico");
}