EDIT/UPDATE DATA

with dm.Dcatunit do

  begin

     if edtcatunit.Text='' then

    begin

        ShowMessage('The name has not been filled')

    end    else

    begin

      Close;

      SQL.Clear;

      SQL.Add('update TType set Typebrand=:nam, NoBrand=:NoU');

      sql.add('where Id=:Idca');

      ParamByName('nam').AsString:=trim(edtcatunit.Text);

      ParamByName('Idca').AsString:=trim(lblidtype.Caption);

      ParamByName('NoU').AsString:=Trim(edt5.Text);

      Execute;

      showmessage('UPDATED SUCCESSFUL');

        end;

  end;