[Vocabulary]

Код:

var S : string;
begin
  ...
  S := Edit2.Text;
  if Edit1.Text = '0' then
    S := Edit3.Text;
  Query3.SQL.Clear;
  Query3.SQL.Add ('insert into itog '+
         '(danger, name_c, Den, Vpemya, frst, dva, tri, etr, Pyat) values' +
         '('+QuotedStr(S)+', '+...