Составить запрос для добавления данных в БД MySQL

[qwert-yg]

form1.SimpleDataSet1.Active:=false;
for i:=0 to 8 do a[i]:=smemo1.Lines[i];
form1.SimpleDataSet1.DataSet.CommandText:='INSERT INTO games_login (name,vosrost,mesto,time_game,stil,on_line,skype,t op) VALUES (a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7]);';
form1.SimpleDataSet1.Active:=true;

[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Сначало заполняю в мемо 8 строк, потом хочу это в БД внести. Код по кнопке выполняется код который я указ-ал выше, ошибка при нажатии [Ссылки могут видеть только зарегистрированные и активированные пользователи]

Добавлено через 35 минут
procedure TForm1.sBitBtn1Click(Sender: TObject);
var a: array [0..7] of string; i: integer;
stroka: string;
begin
form1.SimpleDataSet1.Active:=false;
for i:=0 to 8 do a[i]:=smemo1.Lines[i];
stroka:='"' + a[0] + '", "' + a[1] + '", "' + a[2] + '", "' + a[3] + '", "' +a[4] + '", "' + a[5] + '", "' + a[6] + '", "' +a[7] + '"';
form1.SimpleDataSet1.DataSet.CommandText:='INSERT INTO games_login (name,vosrost,mesto,time_game,stil,on_line,skype,t op) VALUES (' + stroka + ')';
form1.SimpleDataSet1.Active:=true;
end; Попробовал такой код, не помогло