Delphi + SQL обновление записи в базе данных

Form2.ADOQuery2.SQL.Text:= 'UPDATE Student, Prof_org SET Prof_org.[Состоит_в_профсоюзной_организации] = :Prof_org.[Состоит_в_профсоюзной_организации],'+' Prof_org.[Дата_вступления_в_ПО] = :Prof_org.[Дата_вступления_в_ПО], Prof_org.[Поездки]= :Prof_org.[Поездки],'+ 'Prof_org.[Оздоровление]= :Prof_org.[Оздоровление],  Prof_org.[Дубликат_проф_билета]= :Prof_org.[Дубликат_проф_билета] where Student.[Код студента] = :Prof_org.[Код студента] ';
Form2.ADOQuery2.Parameters.ParamByName('Состоит_в_профсоюзной_организации').Value:= Edit10.Text;
Form2.ADOQuery2.Parameters.ParamByName('Дата_вступления_в_ПО').Value:= Edit11.Text;
Form2.ADOQuery2.Parameters.ParamByName('Поездки').Value:= Edit12.Text;
Form2.ADOQuery2.Parameters.ParamByName('Оздоровление').Value:= Edit13.Text;
Form2.ADOQuery2.Parameters.ParamByName('Дубликат_проф_билета').Value:= Edit14.Text;
Form2.ADOQuery2.ExecSQL;
Form2.Close;
Form2.ADOQuery2.Active:=False;
Form2.ADOQuery2.SQL.Clear;
Form2.ADOQuery2.SQL.Text:=('Select * from Prof_org');
Form2.ADOQuery2.Active:=True;
Form2.Close;
end;

  ADOQuery2.SQL.Text:= 'UPDATE Prof_org SET [Состоит_в_профсоюзной_организации] = :P1,'+
                       '[Дата_вступления_в_ПО] = :P2, [Поездки]= :P3,'+
                       '[Оздоровление]= :P4, [Дубликат_проф_билета]= :P5'+
                       ' where Код = '+IntToStr(<Код строки>);
  ADOQuery2.Parameters[0].Value:= Edit10.Text;
  ADOQuery2.Parameters[1].Value:= Edit11.Text;
  ADOQuery2.Parameters[2].Value:= Edit12.Text;
  ADOQuery2.Parameters[3].Value:= Edit13.Text;
  ADOQuery2.Parameters[4].Value:= Edit14.Text;