Multi-threaded Query database

Unit Querythread
Interface

Uses
Classes,messages,adodb,db,sysutils,dialogs,activex;

Type
Tmythread = Class (TThread)
Private
Fquery:tadoquery; Inquire
Fconnection:tadoconnection; Connection
Fdatasource:tdatasource; {data-aware component associated with the query component}
Procedure Connectdatasource; {Methods for connecting data query components and data-aware components}
Protected
Procedure Execute; Override
Public
Constructor Create (Suspended:boolean; Query:tadoquery;ds:tdatasource); {Thread Builder}
destructor Destroy;override;
End

Implementation
Procedure Tmythread.connectdatasource; {Methods for connecting data query components and data-aware components}
Begin
Fdatasource.dataset:=fquery;
End
Constructor Tmythread.create (Suspended:boolean; Query:tadoquery;ds:tdatasource);
Begin
CoInitialize (nil); is required in this thread
Try
Fconnection:=tadoconnection.create (nil);
Fquery:=query;
Fdatasource:=ds;
Fquery.connection:=fconnection;
With Fconnection do
Begin
Loginprompt:=false;
Keepconnection:=true;
Connectionstring:= ' provider=msdasql.1; Persist security Info=false;data source=honesty ';
End
Inherited Create (suspended);
Except
On E:exception do
Begin
ShowMessage (' Error creating thread! Error: ' + e.message ');
End
End
End
destructor Tmythread.destroy;
Begin
Fconnection.free; Release
CoUninitialize;
Inherited Destroy;
End
Procedure Tmythread.execute;
Begin
Try
Freeonterminate: = true;
Fquery.open; {Open Query}
Synchronize (Connectdatasource); {Thread Synchronization}
Except
ShowMessage (' thread exception! '); {Thread Exception}
End
End

End.