[steelha]

Buenas, como el titulo dice necesito ayuda para limpiar los valores que contengan los controles como edit, memo, checkbox. Es como un reset para que todo este limpio. Se que debo hacer un bucle para cada control contenido en tab del page. El problema es que en el tab tengo tres (3) groupbox los cuales contienen los edit memo y dblookcombobox. Como le hago me conocimiento solo llega hasta el tab.

Código Delphi [-]
procedure TfrmPacientes.limpiar;
var
  sheet : TTabSheet;
  a,i   : Integer;
begin
   for i := 0 to PageControl1.ControlCount-1 do
   begin
      sheet := TTabSheet(PageControl1.Controls[i]);
      for a := 0 to sheet.ControlCount-1 do
      begin
        if sheet.Controls[a] is TMemo then
          (sheet.Controls[a] as TMemo).Text := '';

        if sheet.Controls[a] is TEdit then
          (sheet.Controls[a] as TEdit).Text := '';

        if sheet.Controls[a] is TDBComboBox then
          (sheet.Controls[a] as TDBComboBox).ItemIndex := -1;

        if sheet.Controls[a] is TCheckBox then
          (sheet.Controls[a] as TCheckBox).Checked := False;
      end;
   end;
end;

Encontré este código parecido al que busco pero no me limpia los valores

cualquier ayuda o comentario será de mucha ayuda