프로시저를 하나 만들어서 호출하시면 편할 겁니다.
폼 생성시에, 새 데이터 입력시에 호출하면 되겠죠...^^
인자값 Sender가 0이면 모든 컴포넌트의 텍스트를 지우고, 0이 아닌
숫자를 주면 그숫자값이 태그에 있는 컴포넌트만 지웁니다.
** 이걸 응용해서 Enabled 프로퍼티를 조절하면 조회시에는 입력이나
수정을 막고, 입력 버튼을 누를때만 편집할 수 있도록 할 수도 있겠죠..?

^^ 모르는 건 부끄러움이 아니랍니다.
모르면서도 노력하지 않고, 아는척 하는게 진짜 부끄러운거죠..
공부하시다가 많은 어려움에 부딪히겠지만, 용기를 내서 질문하시구요,
다만 먼저 검색하는 습관을 들이시는게 좋습니다.
아마 님이 원하시는 많은 부분의 해답이 있을겁니다.
검색하는 습관을 잘 들이면 원하는 자료에 빨리 접근할 뿐만 아니라,
어떤식으로 질문을 해야 빠른 답변이 올라오는지도 터득하게 된답니다.^^


procedure TfrmGoods.ClearFocus(Sender: shortint);
var
  i: integer;
begin
  for i := 0 to ComponentCount -1 do
    if Sender =0 then begin
      if Components[i] is TFlatEdit then TFlatEdit(Components[i]).Text := '';
      if Components[i] is TFlatMemo then TFlatMemo(Components[i]).Text := '';
      if Components[i] is TwNumEdit then TwNumEdit(Components[i]).Value := 0;
      if Components[i] is TFlatComboBox then TFlatComboBox(Components[i]).ItemIndex := 0;
      if Components[i] is TwDateEdit then TwDateEdit(Components[i]).IsNull := True;
    end else begin
      if (Components[i] is TFlatEdit) and (TFlatEdit(Components[i]).Tag =Sender) then TFlatEdit(Components[i]).Text := '';
      if (Components[i] is TFlatMemo) and (TFlatMemo(Components[i]).Tag =Sender) then TFlatMemo(Components[i]).Text := '';
      if (Components[i] is TwNumEdit) and (TwNumEdit(Components[i]).Tag =Sender) then TwNumEdit(Components[i]).Value := 0;
      if Components[i] is TFlatComboBox then TFlatComboBox(Components[i]).ItemIndex := 0;
      if Components[i] is TwDateEdit then TwDateEdit(Components[i]).IsNull := True;
    end;
  wNumEdit9.Value := 2;  
end;

폼 크리에이트 시에

for i := 0 to ComponentCount - 1 do
  if Components[i].ClassName = 'TEdit' then
    TEdit(Components[i]).Text := '';

하시면 되겠고...

Parameters[19].Value := checkbox2.Checked;

하시면 되겠죠.

Parameters[19].Value 는 Boolean 값을 받을 수 있어야 합니다.

만일 Parameters[19].Value가 숫자를 받을 수 있다면

Parameters[19].Value := Ord(checkbox2.Checked);

도 가능합니다. 그것도 아니고 문자를 받는다면

Parameters[19].Value := IntToStr(Ord(checkbox2.Checked));

하시면 되겠죠.

그리고 마지막 꺼의 경우

checkbox2.Checked := Bool(DBGRID1.Fields[19].AsBoolean);

요렇게 하시면 되겠네요.

이것도 필드의 형식이 문자일 경우엔

checkbox2.Checked := Bool(StrToInt(DBGRID1.Fields[19].AsString));

이렇게 하시면 되겠죠.

True는 1이고 False는 0입니다.

1/0으로 저장되지 않았다면 적당히 if문 써서 바꿔주시면 됩니다.

좋은 답변 주셔서 정말 감사합니다, 열심히 공부하겠습니다..^^

좋은하루 되세요