Ayuda con Hilos

[Dark_RavenM]

un objeto que cree dentro del hilo
type
TBarra = class(TThread)
private
sesion:TOracleSession;
script:TOracleScript;
protected
procedure Execute; override;
public
end;