🚀 go-pugleaf

I am using BCB5 Pro SP1, and I have the following code :-

int CALLBACK mjBrowseCallbackProc(HWND hwnd,UINT uMsg,LPARAM lParam,LPARAM 
lpData)
{
  if (uMsg==BFFM_INITIALIZED) SendMessage(hwnd,BFFM_SETSELECTION,TRUE,lpData);
  return 0;
}
//---------------------------------------------------------------------------
void __fastcall Tmjgrabstr::xbtnClick(TObject *Sender)
{
  AnsiString Dir=Edit1->Text;
  BROWSEINFO mjbi;
  char rcvdir[999];
  if (!DirectoryExists(Dir)) Dir=GetCurrentDir();
  strcpy(rcvdir,Dir.c_str());
  mjbi.hwndOwner=Application->Handle;
  mjbi.pidlRoot=0;
  mjbi.pszDisplayName=rcvdir;
  mjbi.lpszTitle="Choose a Directory :-";
  mjbi.ulFlags=BIF_USENEWUI;
  mjbi.lpfn=mjBrowseCallbackProc;
  mjbi.lParam=(long)rcvdir;
  ITEMIDLIST *mjites=SHBrowseForFolder(&mjbi);
  rcvdir[0]='\0'; if (mjites) SHGetPathFromIDList(mjites,rcvdir);
  CoTaskMemFree(mjites);
  if (rcvdir[0]) Edit1->Text=AnsiString(rcvdir);
}

This is to present a directory selector with an edit box to manually enter a 
directory name. The directory chosen or entered, does not have to exist. When 
the dialog appears, it changes itself to the current directory. When I enter 
text into the edit box on this dialog, and hit OK, the dialog returns the 
directory in the window above the text box, but not that entered into the text 
box itself. How do I get to the text in the edit box in this dialog?
-- 
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk