limpiar todos los valores del formulario

[cisterpe]

El create lo he puesto en el evento onclick de 1 boton.

Evento on close del form (nombre= Presu)

procedure TPresu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Enabled:=true; <- (Break point) OK
Action:=cafree;
presu.Destroy;

end;<- (Break point) OK
------------------------------------------------------- <<<Error>>>
end.


Error -> Acces violation at adress 00000002. Read of adress FFFFFFFF

Error -> Abstract error.

Programa sigue funcionando pero si intento volver a crear el form me da el mismo error otra vez.


- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Si en vez de eso elimino el form antes de volverlo a crear, no me crea los controles de la base de datos

He añadido al Oncreate del formulario:

qobj.Active:=true;
qobj.sql.Clear;
qobj.SQL.add('Select * from objur order by nombre');
qobj.Open;

por si se borraba y no me da error pero sigue sin funcionar cualquier consulta