Delphi + InterBase + SQL

procedure TForm3.FormShow(Sender: TObject);
begin
with DataModule2 do
begin
Query1.Close;
query1.sql.clear;
Query1.SQL.Add('SELECT NAME as Naimenovanie, KURS as Kurs FROM SUBJECTS;');
Query1.Open;
end;
DBGrid1.Columns.Items[0].Width := 200;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
with DataModule2 do
begin
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.ADD('DELETE FROM SUBJECTS WHERE K_DISC=');
  Query2.SQL.ADD(IntToStr(Query1.FieldByName('K_DISC').AsInteger));
  Query2.ExecSQL;
end;
end;

Query1.FieldByName('K_DISC').AsInteger

with DataModule2 do
begin
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.ADD('DELETE FROM SUBJECTS WHERE NAME=');
  Query2.SQL.ADD(Query1.FieldByName('Naimenovanie').AsString);
  Query2.SQL.ADD(' AND KURS=');
  Query2.SQL.ADD(IntToStr(Query1.FieldByName('Kurs').AsInteger));
  Query2.ExecSQL;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
with DataModule2 do
begin
Query1.Close;
query1.sql.clear;
Query1.SQL.Add('SELECT K_DISC, NAME as Naimenovanie, KURS as Kurs FROM SUBJECTS');
Query1.Open;
end;
DBGrid1.Columns.Items[1].Width := 200;
DBGrid1.Columns.Items[0].Visible:=false;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
with DataModule2 do
begin
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('SELECT COUNT (*) AS COUNT_1 FROM SUBJECTS WHERE (NAME="'+AnsiUpperCase(Trim(Edit1.Text))+'" AND KURS="'+Trim(ComboBox1.Text)+'");');
  Query2.Open;
  if Query2.FieldByName('COUNT_1').Value>0 then
      ShowMessage('Òàêàÿ äèñöèïëèíà óæå ñóùåñòâóåò!')
  else
    begin
      Query2.Close;
      Query2.SQL.Clear;
      Query2.SQL.Add('UPDATE SUBJECTS SET NAME = ');
      Query2.SQL.Add('"'+AnsiUpperCase(Trim(Edit1.Text))+'", KURS = "'+Trim(ComboBox1.Text)+'" WHERE K_DISC = ');
      Query2.SQL.Add(IntToStr(Query1.FieldByName('K_DISC').AsInteger));
      Query2.Open;
    end;
end;
Form5.Close;
Form3.Show;
end;