TOpenDialog и запись в файл

void saver()
{
    FILE *f;
    AnsiString path = StartForm->pathfile->Text;
    ShowMessage(path);           //путь ВЕРНЫЙ
    f=fopen(path.c_str(),"a");
    if( FileExists(path) )             //вот тут начинаются чудеса
        ShowMessage("OK");
    else
                ShowMessage("NO!");
    if(f== NULL) {
        ShowMessage("cannot open!");
        f=fopen(path.c_str(),"a");
        return;
    }
       ...

path=OpenDialog1->FileName

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdio.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)
{
AnsiString path;
FILE *f;
if( OpenDialog1->Execute() )
 
                {
                path=OpenDialog1->FileName;
                f=fopen(path.c_str(),"a");
                        ShowMessage(path);           //ïóòü ÂÅÐÍÛÉ
                if( FileExists(path) )             //âîò òóò íà÷èíàþòñÿ ÷óäåñà
                {
                ShowMessage("OK");
                }
                else
                {
                ShowMessage("NO!");
                }
                if(f== NULL)
                {
                ShowMessage("cannot open!");
                f=fopen(path.c_str(),"a");
                return;
                }
}
//AnsiString path = StartForm->pathfile->Text;
}
//---------------------------------------------------------------------------

void __fastcall TAskForm::BrowClick(TObject *Sender)
{
    AnsiString tmp;
    if(OpenFileq->Execute())
    {
        //FileWay->Text=OpenFile->FileName;
        tmp=OpenFileq->FileName;
    }
}

    AnsiString path = StartForm->pathfile->Text;

AnsiString A=ExtractFilePath(Application->ExeName) + "\\Log.dat";
Memo1->Lines->LoadFromFile(A);
Memo1->Lines->Add("запись даних");
Memo1->Lines->SaveToFile(A); // ";" !!! =D

void __fastcall TAskForm::BrowClick(TObject *Sender)
{
if(StartForm->OpenDialog1->Execute())
{
tmp1=StartForm->OpenDialog1->FileName;
//FileWay->Text=OpenFile->FileName;
AnsiString dir="tests\\";
AnsiString fpath = dir + StartForm->TestName->Text + "\\test.txt";
//StartForm->pathfile->Text=fpath;
tmp2=ExtractFilePath(Application->ExeName) + "\\" + fpath;
/*
теперь это крутите как хотите должно робить всяко
*/
}
}

void __fastcall saver(AnsiString path)
{
    FILE *f;
 
 // AnsiString path = StartForm->pathfile->Text;
    ShowMessage(path);
 
    f=fopen(AskForm->tmp2.c_str(),"a");
    if( FileExists(path) )
        ShowMessage("OK");
 
//И Т.Д.

saver(tmp2);