🚀 go-pugleaf

The following code works, but I would like to run it
past someone knowledgeable for a bit of a critique.
Basically, I am inserting an image into a database record,
then later retrieving an image.

The image is shown and saved from a TImage. 

Thanks inadvance for your comments.

//---------------------------------------------------------------
void __fastcall TMainForm::InsertBtnClick(TObject *Sender)
{
  AnsiString cmdText;

  cmdText = "INSERT INTO Picture ";
  cmdText = cmdText + "(PictureNumber,PictureBlob) VALUES (";
  cmdText = cmdText + Edit1->Text + ",:pic)";

  ADOQuery->Active = false;
  ADOQuery->SQL->Clear();
  ADOQuery->SQL->Add(cmdText);

  if(Image1->Picture != NULL)
    ADOQuery->Parameters->Items[0]->Assign(Image1->Picture);
  else
    ADOQuery->Parameters->Items[0]->Assign(NULL);

  try
  {
     ADOQuery->ExecSQL();
  }
  catch(...)
  {
      ShowMessage("error in database insert: " + cmdText);
  }

}
//---------------------------------------------------------------
void __fastcall TMainForm::RetrieveBtnClick(TObject *Sender)
{
  AnsiString cmdText;
  char* temp = new char[MAX_PATH];

  Image1->Picture = NULL;

  cmdText = "SELECT * FROM Picture ";

  ADOQuery->Active = false;
  ADOQuery->SQL->Clear();
  ADOQuery->SQL->Add(cmdText);

  try
  {
     ADOQuery->Open();
     ADOQuery->Active = true;
  }
  catch(...)
  {
      ShowMessage("error in database select: " + cmdText);
      return;	
  }

  TBlobField* myBlob = (TBlobField*)ADOQuery->FieldByName        ("PictureBlob");
   if(myBlob->IsBlob())
    Image1->Picture->Assign(myBlob);
}
//---------------------------------------------------------------