CreateFile

Пожалуйста подскажите, у меня есть код:
....
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int long GEN = GENERIC_READ || GENERIC_WRITE;
int long PRW = PAGE_READWRITE;
void *pMem;
HANDLE hOpenFile,hMapFile;
AnsiString FileNam;

OpenDialog1->Filter="Application : *.exe|*.exe";
if (OpenDialog1->Execute())
{FileNam = OpenDialog1->FileName;
hOpenFile = CreateFileA(&FileNam,GEN,0,0,OPEN_EXISTING,0,0);
...
так вот, у меня Borland ругается на строку с функцией CreateFileA говорит мол Edit.cpp(29): E2034 Cannot convert 'AnsiString *' to 'const char *' и
Edit.cpp(29): E2342 Type mismatch in parameter 'lpFileName' (wanted 'const char *', got 'AnsiString *')
Как мне это исправить??? Помогите, очень надо!!!