Borland Builder, Select Query

Jeg har store problemer med at få et select statement til at virke på en form i Borland Builder 3.0, når jeg sætter en where clause på,

undlader jeg where clausen kører programmet perfekt,

Hvis where clausen er med - går exe filen i stå, når jeg kalder mit query, programmet står med timeglas et par minutter, og dernæst program not responding

Kildekoden ser således ud

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include \"AmbulanceSendtreg.h\"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource \"*.dfm\"
TFormAmbulanceSendtreg *FormAmbulanceSendtreg;
//---------------------------------------------------------------------------
__fastcall TFormAmbulanceSendtreg::TFormAmbulanceSendtreg(TComponent* Owner)
    : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TFormAmbulanceSendtreg::FormActivate(TObject *Sender)
{
strStationsName = FormRekvisitionafAmbulance->EditStationsNavn->Text;
LabelStationName->Caption = strStationsName;

Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add(\"Select * from AMBULANCE \");
//Query1->SQL->Add(\"WHERE (Hjemstation = \'\" + strStationsName + \"\') AND (Udrykningsstatus = 0)\");
Query1->Open();

    if (!Query1->RecordCount == 0)
    {
    Query1->First();
    strAmbulanceID = Query1->FieldValues[\"AmbulanceId\"];
    //Query1->FieldValues[\"Udrykningsstatus\"] = 1;
    //Query1->ExecSQL();

   
    Table2->Open();
    Table2->First();
    Table2->Edit();
    while (strAmbulanceID != Table2->FieldValues[\"AmbulanceId\"])
    Next();
    Table2->FieldValues[\"Udrykningsstatus\"] = 1;
    Table2->Refresh();

    Table1->Open();
    Table1->Last();
    Table1->Edit();
    Table1->FieldValues[\"AmbulanceNr\"] = strAmbulanceID;
    Table1->FieldValues[\"UdrykningsStation\"] = strStationsName;
    Table1->Refresh();

    //LabelTest->Caption = \"Ambulance Nr: \" + strAmbulanceID + \" På vej til Ulykkestedet\";
    LabelTest->Caption = \"Fundet \" + strAmbulanceID;
    ListBoxStationsNavn->Visible = false;
    //}

    //else
    //{
    //Query1->Close();
    //Query1->SQL->Clear();
    //Query1->SQL->Add(\"Select * from AMBULANCE \");
    /*
    Query1->SQL->Add(\"WHERE Udrykningsstatus = 0\");
    Query1->Open();
    Query1->First();

    while (!Query1->Eof)
      {
    ListBoxStationsNavn->Items->Add(Query1->FieldValues[\"Hjemstation\"]);
    Query1->Next();
      }
    */
    }

}




//---------------------------------------------------------------------------

Det der driller er

//Query1->SQL->Add(\"WHERE (Hjemstation = \'\" + strStationsName + \"\') AND (Udrykningsstatus = 0)\");