limpiar todos los valores del formulario

[cisterpe]

-----------------OnClick ----------------------------------
procedure TForm1.Presupuestos1Click(Sender: TObject);
begin
IF(FORM1.qlogin['PRESUPUESTO'] ='True') then //permisos usuario
BEGIN
form1.Enabled:=false;

if presu = nil then
presu := Tpresu.Create(Application);
try
presu.Show;
except
FreeAndNil( presu );
end;


// <<<---- Con esto me funciona pero no me carga los sql---->>>
//If Presu=nil then
//begin
//Application.CreateForm(TPresu, Presu);
//end
//else
//begin
//presu.Destroy;
//Application.CreateForm(TPresu, Presu);
//end;
//presu.show;
// <<<-------------- Fin comentarios --------------->>>

END
else
showMesSage('No tiene permisos para acceder a esta zona.');
end;




---------------OnCreate---------------------------
procedure TPresu.FormCreate(Sender: TObject);
begin
SysLocale.MiddleEast := True;
valor:=0;
Edit1.BiDiMode := bdRightToLeft;
.
.
.
.
Edit65.BiDiMode := bdRightToLeft;
qobj.Active:=true; // Por si no cargaba la consulta sql
qobj.sql.Clear;
qobj.SQL.add('Select * from objur order by nombre');
qobj.Open; // fin consulta sql
end;





-----------------On close-----------------------------------
procedure TPresu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Enabled:=true;
Action := caFree;
end;


Siento causar tantas molestias