Así ...
Sólo necesitas añadir un "constructor" y un "destructor" a tu clase tproces, o sea:
tproces = class(TThread)
private
VL1: TValueListEditor;
protected
procedure Execute; override;
public
constructor Create(Suspended: boolean);
destructor Destroy; override;
end;
y en la implementación ...
constructor tproces.Create(CreateSuspended: boolean);
begin
inherited Create(CreateSuspended);
VL1 := TValueListEditor.Create(...owner component...);
end;
destructor tproces.Destroy;
begin
VL1.Free;
end;
espero haberte ayudado, ....
|