Посоветуйте пожалуйста.
Нужно передать в процедуру указатель на класс, чтобы можно было работать в отдельном потоке с экземпляром этого класса. При компиляции компилятор выдает ошибку:[Error] (173): This form of method call only allowed for class methods. В чем может быть дело?
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, COMObj, OLECtrls, Grids, DBGrids, ComCtrls, ExtCtrls, DBCtrls, DB, DBTables;

type
TMainForm = class(TForm)
Button1: TButton;
MasterTable: TTable;
DataSource: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
MyThread=class(TThread)
LocMasTable1=^TTable;
procedure VarInit(LocMasTable:LocMasTable1);
end;
var
MainForm: TMainForm;

implementation
{$R *.dfm}
procedure MyThread.VarInit(LocMasTable:LocMasTable1);
var
Progress_counter:integer;
str:String[14];
begin
// Тело процедуры
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
MyThread.VarInit(addr(MasterTable));
MyThread.Create(False);
MyThread.Priority:=tpNormal;
end;