En vez de esto:
Código Delphi
[-] BaseTemp.Connected:=false;
BaseTemp.ConnectionString :='';
BaseTemp.LoginPrompt:=false;
BaseTemp.Free;
¿ Has intentado esto?:
Código Delphi
[-] BaseTemp.Close;
BaseTemp.ConnectionString :='';
BaseTemp.LoginPrompt:=false;
BaseTemp.Free;