Есть вот такая штука

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString yyy;
Memo1->Text=Edit1->Text;
if (SQLConnection1->Connected==true)
{
SQLQuery1->SQL->Clear();
SQLQuery1->SQL->Add("SET NAMES cp1251");
SQLQuery1->Open();
}
}

Но ругается на какой-то курсор, не могу понять что не так, на php синтаксис был такой, подскажите плиз, только не ругайте сильно)

Спасибо если кому интересно то вот
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString yyy;
Memo1->Text=Edit1->Text;
if (SQLConnection1->Connected==true)
{
SQLQuery1->SQL->Clear();
SQLQuery1->SQL->Add("SET NAMES cp1251");
SQLQuery1->ExecSQL(true);
SQLQuery1->SQL->Clear();
SQLQuery1->SQL->Add("SELECT * FROM users where id=2");
SQLQuery1->Open();
yyy=SQLQuery1->FieldByName("name")->AsString;
Memo1->Text=yyy;
}
}
или можно найти файл my.ini и там все фразы например у меня стояло вот так
# Внутренняя кодировка таблиц на сервере.
character-set-server = utf8
изменил с utf8 на cp1251 и все норм