[freelance]

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, ....