스레드를 밑에처럼 만들었는데 이걸 사용할때는 괜찮거든요.
그런데 실행파일을 닫아버리면 메모리 에러가 나네요
실행중일땐 에러가 안뜹니다..
스레드를 죽이지 않아서 그런건지 어떤건지 감이 안오네요..
스레드에 관해 알고 계시는분 좀 조언좀 부탁합니다.

/*이상 스레드 실행시키는  버튼입니다.*/
procedure TfMainToolBar.Button1Click(Sender: TObject);
var
    MergeThread1 : MergeThread;
begin
     MergeThread1 := MergeThread.Create(MergeQuery1, MergeGrid1,ZPgSqlDatabase1,ZPgSqlTransact2);
     MergeThread1.OnTerminate := lastThread;

end;

type
  MergeThread = class(TThread)
  private
    { Private declarations }
    Query1: TZPgSqlQuery;
    Grid1: TMergeGrid;
    Transact1: TZPgSqlTransact;
    Database1: TZPgSqlDatabase;
    //ZPgSqlTransact1: TZPgSqlTransact;
  protected
    procedure Execute; override;
    procedure  MselectQuery;
  public
    constructor Create(Query:TZPgSqlQuery ;Grid : TMergeGrid;Database: TZPgSqlDatabase;Transact: TZPgSqlTransact);
    destructor Destroy; override;
  end;
  const
  DIMS_INI_FILE = 'DIMS.INI';

implementation

{ Important: Methods and properties of objects in VCL can only be used in a
  method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure MergeThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ MergeThread }
constructor MergeThread.Create(Query:TZPgSqlQuery ;Grid : TMergeGrid;Database: TZPgSqlDatabase;Transact: TZPgSqlTransact);
begin

    Query1:= Query;
    Grid1:= Grid;
    Transact1:=Transact;
    Database1:=Database;
    freeOnTerminate := true;
    Inherited Create(false);
end;
destructor MergeThread.Destroy;
begin
  {Database1.Free;
  Transact1.Free;
  Query1.Free;
  Grid1.Free;}
  Inherited Destroy;

end;

procedure  MergeThread.MselectQuery;
var

    DimsIniFile : TIniFile;
    uid : String;
begin
    DimsIniFile := TIniFile.Create(DIMS_INI_FILE);
    Transact1.Database := Database1;
    Query1.Database := Database1;
    Query1.Transaction := Transact1;

    with Database1 do begin
       Database := 'dims';
       Host     := DimsIniFile.ReadString('DIMS SERVER', 'IP', '');
       Login    := 'dims';
       Password := 'dimssql';
       Connect;
    end;


    Query1.close;
    Query1.sql.Clear;
    Query1.Sql.Add('select * from admin_tbl');
    Query1.Open;
    Grid1.Cells[1, 1]:= IntTostr(Query1.RecordCount);


end;

procedure MergeThread.Execute;
begin
  { Place thread code here }
       Synchronize(MselectQuery);
  if Terminated then exit;
end;