[[white_zombie]]

Hola, el problema lo tienes en el constructor create, añade esta linea

Código Delphi [-]
constructor TMiHilo.Create( CreateSuspended:boolean );
begin
  FInternalData := TStringList.Create();
  FEvent := TEvent.Create( nil, false, false, '' );
  inherited create(CreateSuspended);
end;

Un Saludo.